Running a macro accross all sheets in a workbook

[sphingo]

I am needing to create a macro that runs the following code accross all the sheets in a workbook. The number of sheets changes from workbook to workbook and one the macro's creates a chart so I need the macro to run in one sheet then move to the next so forth and so on. Any help would be greatly appreciated.

Sub AMaster()
'
' AMaster Macro
'
'
Application.Run "PERSONAL.XLSB!na_to_0"
Application.Run "PERSONAL.XLSB!label2"
Application.Run "PERSONAL.XLSB!Calc3"
Application.Run "PERSONAL.XLSB!Fudge3"
Application.Run "PERSONAL.XLSB!Fudge4"
Application.Run "PERSONAL.XLSB!Fudge5"
Application.Run "PERSONAL.XLSB!table"
Application.Run "PERSONAL.XLSB!table2"
Application.Run "PERSONAL.XLSB!table3"
Application.Run "PERSONAL.XLSB!Chart"
Application.Run "PERSONAL.XLSB!label"
Application.Run "PERSONAL.XLSB!Format"
Application.Run "PERSONAL.XLSB!PrintArea"
End Sub

 

[jmthompson]

Sub AMaster()
Dim ws as Worksheet
For each ws in ThisWorkbook.Sheets
    Application.Run "PERSONAL.XLSB!na_to_0"
    Application.Run "PERSONAL.XLSB!label2"
    Application.Run "PERSONAL.XLSB!Calc3"
    Application.Run "PERSONAL.XLSB!Fudge3"
    Application.Run "PERSONAL.XLSB!Fudge4"
    Application.Run "PERSONAL.XLSB!Fudge5"
    Application.Run "PERSONAL.XLSB!table"
    Application.Run "PERSONAL.XLSB!table2"
    Application.Run "PERSONAL.XLSB!table3"
    Application.Run "PERSONAL.XLSB!Chart"
    Application.Run "PERSONAL.XLSB!label"
    Application.Run "PERSONAL.XLSB!Format"
    Application.Run "PERSONAL.XLSB!PrintArea"
Next ws
End Sub

 

[Phanmore]

You may need to amend some of the codes in your macro if you are using specific sheet names or activework etc.

add this to the beginning:

Dim sht as worksheets

for each sht in activeworkbook.worksheets

'your code here

next sht

 

[sphingo]

none of the code is sheet specific. I have worked that out already. But when I run what you say it doesn't move to the next sheet but continually loops on whatever sheet is selected.

 

[rog54bert]

Try after the 'For each sht . . . " loop

sht.activate
remaining code . . .