Excel-Dateien per VBA öffnen

Wie kann ich aus einer Excel-Tabelle heraus per Makro nacheinander alle Excel-Dateien in einem bestimmten Verzeichnis öffnen (unabhängig von deren Namen) um bestimmte Daten auszulesen und in die erste Tabelle zu kopieren.
Habe mir die Dinge aus Büchern und Foren zusammen geklaut. Schaut so aus:

Sub XXX()
Dim Mappe As String
Dim i As Integer

Mappe = ActiveWorkbook.Name
Range(b2).Select
With Application.FileSearch
    .NewSearch
    .LookIn = C:\Test
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
   
    For i = 1 To .FoundFiles.Count
        Workbooks.Open.FoundFiles (i)
        Range(b2:b500).Copy
        Workbooks(mappe).Activate
        ActiveSheet.Paste
        ActiveCell.Offset(0, 1).Select
    Next i
End With

Bei Workbooks.Open.FoundFiles (i) kommt jedes mal die Meldung Fehler beim kompilieren. Argument ist nicht optional


Hilfeeee !!!

versuchs mal so
Gruß Matjes