Para Fernando Ärroyo

Antes que nada,,,
Cómo estás?

Esta es la n-1 veces que me tomo la atribución de molestarte con preguntas.

Esta es la siguiente:

Vos has puesto esto:

Sub HacerAlgoConVariosArchivos()
Dim n As Long

With Application.FileSearch
.NewSearch
.LookIn = "C:\Test"
.SearchSubFolders = False
.Filename = "*.xls"

If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then
For n = 1 To .FoundFiles.Count
'
'Lo que tengas que hacer con cada archivo
'
Next n
End If
End With
End Sub

Me gustaria saber como obtener el nombre de los archivos?

Y donde puedo obtener bibliografía de este método en español

Saludos desde Argentina
Amadeo