Execute a Macro on Multiple Workbooks
Written by kazamraza
no comments
Classified in : Visual Basic for Application (VBA), Macros
I want to execute a Macro in worksheet 1 on multiple workbooks in a folder.
VBA Code
Syntax
Sub ProcessAllFiles()
Dim Filename, Pathname As String
Dim wb As Workbook
Pathname = ActiveWorkbook.Path & "Files"
Filename = Dir(Pathname & "*.xlsx")
Do While Filename <> ""
Set wb = Workbooks.Open(Pathname & Filename)
MyMacro wb
wb.Close SaveChanges:=True
Filename = Dir()
Loop
End Sub
Sub MyMacro(wb As Workbook)
'my macro code here
'wb.Worksheets(1).Cells.Interior.ColorIndex = 0
'wb.Worksheets(1).Range("D19").Value = "100"
'wb.Worksheets(1).Range("D20").Value = "200"
End Sub