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


"needhelp" <needhelp @discussions.microsoft.com wrote in message
...
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?