Makro Code anpassen

Sub AlleSheetsAusAllenGewaehltenMappenInEineMappeZusammenfuegen()
'GetOpenFileName Dialog: auch zur mehrfach Auswahl von Dateien
'es wird der Filename mit dem Path zurückgegeben
'Zur Mehrfachauswahl einzeln: Strg Taste gedrückt halten und Files anklicken
'oder Shift Taste gedrückt halten und erste + letztes File anclicken
'Wird Multiselect verwendet gibt die GetOpenFileName ein Array zurück
'code kann ggf. mehrfach ausgeführt werden bis zB alle Unterordner nacheinander ereicht  _
wurden
Dim vntPathAndFileNames As Variant 'kein String !
Dim strPathAndFile As String
Dim lngI As Long
Dim wbkMappe As Workbook
Dim wksT As Worksheet
Dim wbkZiel As Workbook
Set wbkZiel = ThisWorkbook 'Beispiel ggf. anpassen
vntPathAndFileNames = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Meine Dateien  Mit gedrückter Strg Taste markieren!", _
MultiSelect:=True)
If VarType(vntPathAndFileNames) = vbBoolean Then
MsgBox "Abgebrochen!"
Else
For lngI = LBound(vntPathAndFileNames) To UBound(vntPathAndFileNames)
strPathAndFile = vntPathAndFileNames(lngI)
Set wbkMappe = Application.Workbooks.Open(strPathAndFile)
For Each wksT In wbkMappe.Worksheets
wksT.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)
Next
wbkMappe.Close False
Next
End If
End Sub