Sandy,

Thank you very much that work great. Very easy when you know how..

Andy JL

"Sandy" wrote:

Try this in the workbook object

Private Sub Workbook_Open()
Sheet1.Range("E14").Value = Sheet1.Range("E14").Value + 1
End Sub

Sandy

"Andy JL" wrote in message
...
Hi,
I have created a Invoice in Excel from my Office 2000, and saved it as an
Excel template, I have a invoice number in Cell E14 which is 16 at this
time,
I want this number to be automaticaly increased by 1 each time I open the
Template. Is this possible? If it is some very basic simple to follow
instructions on how to do it would be most helpful
Many thanks
Andy JL