Форматирование нескольких книг макросом

[Parklane1488]

Всем привет
Есть записанный макрос, я его применяю к форматированию файлов(к примеру удаление ячеек)
Как можно прописать, чтобы этот макрос применялся ко всем файлам в папке D:\test?

Sub формат()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False      
	Sheets("2013").Select
	Range("3:4,6:7,9:10,12:13,15:16,19:19,21:36,39:39,41:42,44:47,49:50,52:55,57:58,62:64,66:69,71:71,72:72,73:73,74:74,75:75,78:78").Select
    	Range("A78").Activate
   	Application.CutCopyMode = False
    	Selection.Delete Shift:=xlUp
	Sheets("2014").Select
	Range("3:4,6:7,9:10,12:13,15:16,19:19,21:36,39:39,41:42,44:47,49:50,52:55,57:58,62:64,66:69,71:71,72:72,73:73,74:74,75:75,78:78").Select
    	Range("A78").Activate
   	Application.CutCopyMode = False
    	Selection.Delete Shift:=xlUp
	Sheets("2015").Select
	Range("3:4,6:7,9:10,12:13,15:16,19:19,21:36,39:39,41:42,44:47,49:50,52:55,57:58,62:64,66:69,71:71,72:72,73:73,74:74,75:75,78:78").Select
    	Range("A78").Activate
   	Application.CutCopyMode = False
    	Selection.Delete Shift:=xlUp
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
end sub

[IgorGO]

как-то так

Sub DirXls()
  Dim fn As String
  fn = Dir("D:\test\*.xls*")
  Do While fn <> ""
    With Workbooks.Open("D:\test\" & fn)
      формат
      .Save:  .Close
    End With
    fn = Dir
  Loop
End Sub

[Parklane1488]

Да, спасибо большое.
Всё работает