Viele Dateien Zellen in eine Excel Datei kopieren

Sub alle_Dateien_Verzeichnis()
Dim wksQ As Worksheet
Dim wkbZ As Workbook
Dim wksZ As Worksheet
Dim strPath As String
Dim wkbname As String
Dim strExt As String
strPath = "C:\Users\Teom\Desktop\ImportDateien\Input\" 'Pfad des Verzeichnisses ggf.  _
anpassen
strExt = "*.xlsx"       'Dateiextension ggf. anpassen
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
' Wie spreche ich nun die geöffnete Datei an und kopiere eine bestimmte Zelle in meine  _
Hauptdatei?
'Workbooks(strFile).Close
strFile = Dir() ' nächste Datei
End With
Loop
End If
End Sub