Выполнить макрос для всех файлов в заданном каталоге
Sub LoopThroughFiles()
FolderName = "C:\Folder1\"
If Right(FolderName, 1) <> Application.PathSeparator Then FolderName = FolderName & Application.PathSeparator
Fname = Dir(FolderName & "*.xls")
'цикл по файлам
Do While Len(Fname)
With Workbooks.Open(FolderName & Fname)
' код который должен срабатывать для каждой книги из папки
'здесь можно написать имя макроса, который будет выполняться для каждого файла в папке
NameOfTheMacro
End With
' перейти к следующему файлу в каталоге
Fname = Dir
Loop
Application.Quit 'закрыть программу после выполнения цыкла
End Sub