print problem.

Hej E.

Jeg har nedenstående kode:

Sub Heol2()

    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       
    With ActiveSheet.PageSetup
       
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Sheets("Sheet1").Select

End Sub

Mit problem er bare at jeg gerne vil have at den udskirver alle sheets i workbooken.

Det skal gerne være med et loop da jag ikke ved hvor mange sheets det er i workbooken.

Hvor dan kan jeg få den til det.