codice:
Sub cicla()
With Application.FileSearch
        .NewSearch
        .LookIn = "C:\Documents and Settings\tuo_path\tua_cartella"
        .FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then ' ci sono file excel
    For i = 1 To .FoundFiles.Count ' li ciclo
        MsgBox .FoundFiles(i)
    Next i
End If
End With
End Sub
Ti ho scritto un esempietto che mostra a video i nomi di tutti i file di excel contenuti in una cartella. Non ti sarà difficile adattarlo alle tue esigenze e fare in modo che ciascuno di essi venga aperto.