MS should add this function to Excel, I bet someone asks for this code two or three times a week on this board. If I was sure the old board was added to the new board I would tell you just search for the code or function you like best, but since this is the new board, Try this code:
Private Sub Workbook_Open()
'By Joe Was, 2/2002.
'Place this code in the "ThisWorkbook" Module
'to increment on the opening of the workbook.
'Sub Worksheet_Activate()
'Use the "Activate" Sub in a Sheet Module
'to increment on a sheet selection.
[A3].Value = [A3] + 1
ActiveWorkbook.Save
MsgBox "Each time this sheet is opened" & Chr(13) & "the starting number is increased." _
& Chr(13) & "And this blank template is saved" & Chr(13) & _
"with the new starting number!" & Chr(13) & Chr(13) & _
"Please, save any added data" & Chr(13) & "with a new file Name!" & Chr(13) & Chr(13) & _
"To preserve system integrity" & Chr(13) & "follow these directions!"
End Sub
Hope this helps. JSW