Makro Excel

Sub Små10ksAlle()
'
' Små10ksAlle Makro
' Makro indspillet 16-05-2007 af Bruger
'

'
    Range("B25:L35,B48:L58").Select
    Range("B48").Activate
    ActiveWindow.SmallScroll Down:=38
    Range("B25:L35,B48:L58,B67:L77,B90:L100").Select
    Range("B90").Activate
    ActiveWindow.SmallScroll Down:=35
    Range("B25:L35,B48:L58,B67:L77,B90:L100,B109:L133").Select
    Range("B109").Activate
    Selection.PrintOut Copies:=1, Collate:=True
    ActiveWindow.ScrollRow = 4
    Range("L17").Select
End Sub
Sådan ser makroen ud, og den fungerer fint, bortset fra jeg ønsker at styre antallet af kopier via en forudgående indputbox
Selection.PrintOut Copies:=1, Collate:=True

Dette bare for forståelsens skyld

Prøv med denne her.

Sub Små10ksAlle()
   
    Dim n As Long
    n = InputBox("Hvor mange kopier skal printes?", "Print")
   
    Range("B25:L35,B48:L58").Select
    Range("B48").Activate
    ActiveWindow.SmallScroll Down:=38
    Range("B25:L35,B48:L58,B67:L77,B90:L100").Select
    Range("B90").Activate
    ActiveWindow.SmallScroll Down:=35
    Range("B25:L35,B48:L58,B67:L77,B90:L100,B109:L133").Select
    Range("B109").Activate
   
    Selection.PrintOut Copies:=n, Collate:=True
   
    ActiveWindow.ScrollRow = 4
    Range("L17").Select
End Sub