Private Sub Файлы()

Dim i As Integer

Dim WB As Workbook

    With Application.FileSearch

        .LookIn = "Путь к файлам"

        .FileType = msoFileTypeExcelWorkbooks

        .Execute

        If .Execute() > 0 Then

            DoEvents

            For i = 1 To .FoundFiles.Count

                Set WB = Workbooks.Open(.FoundFiles(i), , True)

                 ''тут перебераем, обычно тут у меня разные процедуры

            Next i

        End If

    End With

Set WB = Nothing

End Sub