Batch print incremental numbers

S

Silvester

This seems fairly simple but I'm not sure how to achieve it.

Using Excel I have to simply print a sequential number on the top right of a
number of pages. When that page #1 is printed that sequential number will
increment to #2, page 2 is printed, etc

Cand anyone please direct me as to how to do this with Excel ?
 
S

Silvester

Sub Macro1()
Range("A1") = 1
Do Until Range("A1") = 301
ActiveSheet.PrintOut Copies:=1
Range("A1") = Range("A1") + 1
Loop
End Sub
 
Top