need to make a cell with numbers ascend when printed in multiple?

N

needhelp

I need to print out 100 plus sheets, with a cell to change numbers in-between
each sheet in ascending numbers. How do i do that?
 
B

Bernie Deitrick

If you want 100 copies of one sheet, and if the cell is A1, then

Dim i As Integer

For i = 1 To 100
Range("A1").Value = i
Activesheet.PrintOut
Next i

If you have 100+ sheets, and you want to have an incremented number in each
of their cell A1:

Dim i As Integer
Dim mySht As Worksheet

For Each mySht In ActiveWorkbook.Worksheets
i = i + 1
mySht.Range("A1").Value = i
mySht.PrintOut
Next mySht

HTH,
Bernie
MS Excel MVP
 
Top