csv-Dateien zusammenführen

Sub TabellenZusammenführen()
Application.ScreenUpdating = False
Dim vntPfadNamen As Variant
Dim strPfadUndDatei As String
Dim li As Long
Dim Mappe As Workbook
Dim Tabelle As Worksheet
Dim Ziel As Workbook
Set Ziel = ThisWorkbook
vntPfadNamen = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), *.csv", Title:="Wählen Sie die Dateien für die Zusammenführung aus!", MultiSelect:=True)
If VarType(vntPfadNamen) = vbBoolean Then
MsgBox "Vorgang wurde abgebrochen!"
Else
For li = LBound(vntPfadNamen) To UBound(vntPfadNamen)
strPfadUndDatei = vntPfadNamen(li)
Set Mappe = Application.Workbooks.Open(strPfadUndDatei)
For Each Tabelle In Mappe.Worksheets
Tabelle.Copy Ziel.Worksheets(Ziel.Worksheets.Count)
Next
Mappe.Close False
Next
End If
Application.ScreenUpdating = True
End Sub