Macro with muliple tabs - works on some ss's - not on others.

[ds0919]

I have a macro that I plan to use each month on a P & L spreadsheet. The P & L is in the same format each month and has multiple tabs (we own retail stores - so one tab per store) When I run the macro on older reports (Sept 2012 , Oct 2012, Jan 2013) it works on one of them, but not the others. The format below only works on the first tab on a couple of the P & L's - on the other P & L it works fine on all tabs. I am baffled and to why it isn't working on all tabs on all P & L's. Any suggestions? Do I need to run the commands for each tab separately?

Sheets(Array("@DDM-T132", "002004", "002008", "002012", "002038", "002054", "002073", _
        "002076", "002094", "002261")).Select
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.05)
        .RightMargin = Application.InchesToPoints(0.05)
        .TopMargin = Application.InchesToPoints(0.75)
        .Zoom = 85
        .ScaleWithDocHeaderFooter = True
        End With
    Application.PrintCommunication = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

[AB33]

With ActiveSheet.PageSetup

only looks on the active sheet, you need to loop through the sheets

[ds0919]

Can you offer a suggestion as to how I need to modify?
Can I just remove that line "with activesheet.pagesetup" ?
I am new to macros and am trying to learn.
Thanks!!!

[AB33]

Untested

Sub test()

Dim j&, ws As Worksheets
j = (Array("@DDM-T132", "002004", "002008", "002012", "002038", "002054", "002073", _
        "002076", "002094", "002261"))
        
For Each ws In ThisWorkbook.Worksheets(j)
    Application.PrintCommunication = False
    With ws.PageSetup
        .LeftMargin = Application.InchesToPoints(0.05)
        .RightMargin = Application.InchesToPoints(0.05)
        .TopMargin = Application.InchesToPoints(0.75)
        .Zoom = 85
        .ScaleWithDocHeaderFooter = True
        End With
    Application.PrintCommunication = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
 Next ws
End Sub

[ds0919]

Thank you AB33!!!!