You could assign this to a button set which cell has invoice no.
Sub number()
Sheet1.Unprotect
'Increment the invoice number
[G3] = [G3] + 1
Sheet1.Protect
End Sub

"Paul B" wrote:

nothingnice,

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


"nothingnice" wrote in message
...
I need to know how to create automatic invoice numbering in excel.
thank you