Microsoft Office Forums - New number after every print

Hey

I am trying to make macro wicth chanse number after every printed page.
In must to be able to start how many copys i want and starting number.

Code:

Sub PrintCopies_ActiveSheet()



 Dim CopiesCount As Long

 Dim copynumber As Long

 Dim algusnumber As Long



 CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)

 algusnumber = Application.InputBox("First number", Type:=1)



 For copynumber = algusnumber To CopiesCount

 With ActiveSheet

    .Range("B1").Value = copynumber

    .PrintOut

 End With

 Next copynumber

 End Sub

that dosnˇt work...:S