I believe this is the page being referenced, at least that's where I ended in
doing a search - shows 2 ways, been playing with the 2nd way (in text file vs
in the registry)
http://www.mcgimpsey.com/excel/udfs/sequentialnums.html



"Rookie 1st class" wrote:

This works sort of

Private Sub Workbook_Open()
Range("E5") = Range("E5") + 1
End Sub

It does what you want if you open the *.xlt original.
Not if you open a *.xls copy (<File., <New).
Where do I find the McGimpseys code page you are copying from?
Maybe we can both learn something.
Lou

"Bill Ridgeway" wrote:

Assuming Invoice numbers are stored in cells A1 through A99, the formula -
=MAX(Data!$A$1:$A$999)+1
will give you the next available Invoice number.

Regards.

Bill Ridgeway
Computer Solutions