Makro/VBA vælge alle ark og sideopsætning

Du kan jo prøve med makro optageren, det burde virke fint :-)

Hej Thomas
Det gør det også, men jeg vil meget gerne have makroen gjort uafhængig af forhåndsvalgte ark. Det bliver det lidt, når man bruger markere alle ark. jeg har forsøgt at erstatte dette med For Each myWorksheet In Worksheets, men det får jeg ikke til at virke

For x = 1 to worksheets.count

Koden til at ændre sideopsætning

next

Noget ala:

Tak for hjælpen.
min løsning blev nedenstående.

Application.ScreenUpdating = False

    Dim ws As Worksheet
    For Each ws In Worksheets
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        End With
    Application.PrintCommunication = True
    Sheets("makro").Select
   
    Next