Ciao LMondi, ho letto che hai risolto, però volevo proporti comunque una soluzione, per risparmiare tempo e codice, e soprattutto per rendere adattabile il codice in qualsiasi situazione...
si tratta di una semplice funzione ricorsiva:

codice:
Dim FSO as New FileSystemObject
Dim BASEPATH as Folder
Dim FLD as Folder
Dim FIL as File

Sub ScanFolders(Path As String)

Set BASEPATH = FSO.GetFolder(Path)

For Each FLD In BASEPATH.SubFolders
    ScanFolders FLD.Path
    For Each FIL In FLD.Path
        Debug.Print FIL.Path
        DoEvents
    Next FIL
    DoEvents
Next FLD
End Sub
con questa routine dovresti ottenere, nella finestra Immediata, tutta la lista dei files contenuti nella cartella che passi come argomento e anche tutti quelli in tutte le sottocartelle presenti.

Boolean