foster1929,

A simple way would be to use something like this, you could assign it to a
button, an open or before print event.
Sheets("Sheet1").Range("A1").Value = _
Sheets("Sheet1").Range("A1").Value + 1

For other ways to do this or if this is going to be used in a temple have a
look here
http://www.mcgimpsey.com/excel/udfs/sequentialnums.html


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"foster1929" wrote in message
...