From previus post:

ThisWorksheet module

Private Sub Workbook_Open()
Range("Sheet1!G1") = Range("Sheet1!G1") + 1
End Sub

You may want to read J.E. McGimpsey's notes:
http://mcgimpsey.com/excel/udfs/sequentialnums.html

--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"momotaro" wrote in message
...
Is there a way to increment a number in my spreadsheet each time I print?
Thanks in advance.

momo