Put this in the workbook module<pre>
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Range("A1").Value = Range("A1").Value + 1
ActiveWorkbook.Save
End Sub</pre>
Do a search in the archieves for invoice ideas this topic has been covered many times from numbers to databasing.
This message was edited by Dragracer on 2002-10-08 14:34