Execute a Macro on Multiple Workbooks

Written by kazamraza no comments
Classified in : Visual Basic for Application (VBA), Macros Tags : none

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

.