Tabellennamen geschlossener Arbeitsmappe lesen

Sub GeschlosseneMappenListen()
Dim fs As Object
Dim fverz As Object
Dim fDatei As Object
Dim FDateien As Object
Dim strDat As String
Dim x As Integer
x = 1
Set fs = CreateObject("Scripting.Filesystemobject")
Set fverz = fs.getfolder("G:\...")
Set FDateien = fverz.Files
For Each fDatei In FDateien
If InStr(fDatei, "xl") > 0 Then
strDat = strDat & fDatei.Name & vbLf
End If
x = x + 1
Cells(2, x).Value = strDat
strDat = ""
Next fDatei
End Sub