Running a macro on multiple worksheets at once

[jessieo387]

I want to run a macro called Macro1 on about 40 different worksheets in the same workbook. I wrote this macro to do that:

Sub Run_all_solver_macros
Call Macro1
End Sub

Its not working I think because this macro isn't need on every worksheets, how do I make this refernece only to the worksheets it needs to run on?

Thanks!

Jessica

 

[G2K]

Try this: -

Sub Run_all_solver_macros
Dim Sh as Worksheet.
For Each worksheet in Sheets("Sheet1",,,,,,,,,Sheetn") 'n = sheet number/or sheet name
call macro1
Next

 

[jessieo387]

I tried that and I get run-time error 91. This is the new code

Sub Run_all_solver_macros()
Dim Sh As Worksheet
For Each Worksheet In Sh(Jan_1, Jan_2, Jan_3, Feb_1, Feb_2, Feb_3)
Call Macro1
Next
End Sub

 

[jessieo387]

I changed the code to:

Sub Run_all_solver_macros()
Dim Sheets As Worksheet
For Each Worksheet In Sheets("Jan_1", "Jan_2", "Jan_3", "Feb_1", "Feb_2", "Feb_3")
Call Macro1
Next
End Sub

And still get the same run-time error 91

 

[G2K]

I was not able to access this site since morning. i have just seen your post here -

Try this -

Sub Run_all_solver_macros()
Dim wsh As Worksheet
Sheets(Array("Jan_1", "Jan_2", "Jan_N")).Select 
For Each wsh In ActiveWindow.SelectedSheets
Call Macro1
Next
End Sub

 

[jessieo387]

That works great! Thanks!!