Run The Same Macro On Some Worksheets of my Workbook

[coscongr]

Hello,

after some failures I had I would like to have your help.
I want to run a macro which runs fine when I run it manually but I want a button to do the same sums in multiple sheets.
My workbook has many sheets and I want to run this macro in 4 sheets let say "aaaa_30", "bbbb_31", "cccc_32", "dddd_33"

[COLOR=#26282A][FONT='inherit']Sub Sheets_for_autosum()[/FONT][/COLOR]
[COLOR=#26282A][FONT='inherit']
[/FONT][/COLOR]
[COLOR=#26282A][FONT='inherit']Sheets(Array("aaaa_430", "bbbb_431", "cccc_432", "dddd_433")).Select Sheets("aaaa_430", "bbbb_431", "cccc_432", "dddd_433").
Activate Application.Run "myfile.xlsm!AUTOSUMS"[/FONT][/COLOR]
[COLOR=#26282A][FONT='inherit']
End Sub[/FONT][/COLOR]

Thank you

 

[JLGWhiz]

Sub Sheets_for_autosum()
Dim Ary As Variant, i As Long
Ary = Array("aaaa_430", "bbbb_431", "cccc_432", "dddd_433")
    For i = LBound(Ary) To UBound(Ary)
        Sheets(Ary(i)).Activate
        Application.Run "myfile.xlsm!AUTOSUMS"
    Next
End Sub

This assumes that AUTOSUMS is written to run on any active sheet.

 

[coscongr]

Sub Sheets_for_autosum()
Dim Ary As Variant, i As Long
Ary = Array("aaaa_430", "bbbb_431", "cccc_432", "dddd_433")
    For i = LBound(Ary) To UBound(Ary)
        Sheets(Ary(i)).Activate
        Application.Run "myfile.xlsm!AUTOSUMS"
    Next
End Sub

This assumes that AUTOSUMS is written to run on any active sheet.

How can I change this? I want to run it only in four sheets!

 

[JLGWhiz]

Replace the sheet names in the array.

Ary = Array[COLOR=#ff0000]("aaaa_430", "bbbb_431", "cccc_432", "dddd_433")[/COLOR]

I don't know what the called macro does, so it could already address more than four sheets. You did not poste it for us to analyze.