Makro um Ordner zu erstellen und Datei dort entpacken

Ich bräuchte mal Hilfe.

Und zwar würde ich ein Makro benötigen das mir alle selektierten Dateien in einen Ordner entpackt der anhand des Dateinamens automatisch angelegt wird.

Also Ordner anlegen der wie die Datei ohne lha heißt und den Inhalt dort hinein entpacken.

Kann mir da jemand helfen?