With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "C:\UserData"
.SearchSubFolders = True
.Execute
[..]
End With
Meine Struktur ähnelt diesem Schema:
C:\UserData\AA1\gültig\BB1\*.xls
AA1 und BB1 gibt es in verschiedener Ausprägung