VBA - sideopsætning

Jeg har behov for at lave side-setup på udvalgte ark før jeg udskriver dem.

Manuelt kan jeg godt markere f.eks. 3 udvalgte sider og så lave sidesetup, men hvis jeg optager samme sekvens går det galt.
Her er koden:

    bruger = Worksheets("Intro").Range("M3").Value
   
    Sheets(Array("Alle", "Ark1", "Ark2")).Select
    Sheets("Alle").Activate
   
    With ActiveSheet.PageSetup
        .LeftFooter = bruger & " - &D"
        .CenterFooter = "Side &P af &N"
        .RightFooter = "Filnavn: &F"
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With

Der skal jo nok en løkke til, men hvordan ser den ud?