numbering increase by 1 automatically

Posted by h'eddie on January 05, 2001 11:49 AM

hi all,

would like to have a cell on my spreadsheet where whenever a print request is made(or when the file is opened), the number would automatically increase by 1. So in my case, I have an invoice # 123 and next time I request a print or open the file, it should automatically be #124.

thanks.

Posted by greg on January 05, 2001 3:40 PM

RE: use the on open event to increase the cell value by one when the workbook is opened.

Private Sub Workbook_Open()
Worksheets(1).Range("a1") = Worksheets(1).Range("a1") + 1

End Sub