Aus mehreren xlsx kopieren und einfügen

Public Sub Main()
Dim intFiles As Integer
Dim varFiles As Variant
On Error GoTo Fin
varFiles = Application.GetOpenFilename( _
FileFilter:="Excel-Dateien (*.xlsx), *.xlsx", _
MultiSelect:=True)
If Not VarType(varFiles) = vbBoolean Then
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
For intFiles = 1 To UBound(varFiles)
Workbooks.Open varFiles(intFiles), UpdateLinks:=False
Next intFiles
Else
MsgBox "Abbruch!", vbInformation, "Dateiauswahl!"
End If
Fin:
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub