Makro til udskrivning af ark med sideskift

Hvorfor vil du bruge en makro til det??

Ren og skær dovenskab! Det ene ark er inddelt i 24 sider, og jeg formoder, at jeg med en makroknap kan udskrive en bestemt side ved ved tryk på en enkelt knap. Måske er der en anden og bedre løsning?

D kan jo bare trykke print og så vælge "udskriv aktuel side"..

d=du

Sub Makro1()
Du kunne teste denne her.

Sub Udskriv_Side()
Dim sidestart As Integer
sidestart = InputBox("Hvilken side ønskes udskrevet ?")
    ActiveWindow.SelectedSheets.PrintOut From:=sidestart, To:=sidestart, Copies:=1, Collate _
        :=True
End Sub

Tak for hjælpen!