Maybe you could modify this to get what you want:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim myCell As Range
Dim iCtr As Long

Set wks = Worksheets("sheet1")

With wks
Set myCell = .Range("a1")
myCell.Value = 0 'set it back to 0
For iCtr = 1 To 4 '100 after testing
With myCell
.Value = .Value + 1
End With
.PrintOut preview:=True
Next iCtr
End With

End Sub


morrisg wrote:

Hello
i want to update a cell with a count of +1 and print the page until the
count of the updated cell say reaches 100 - i do not wish to create a
100 page workbook but only to update the cell mumericaly by one then
print the page repeatedly until the cell value is 100. so the printout
will have 100 pages with the cell in each page updated numericaly by
one
Can anyone one help
thanks morris

--

Dave Peterson