Found this on www.mrexcel.com It works great. Excel will do increment on open

In the Workbook module (Or, if its a Userform, in the Initialize event of that Userform) put the following

Private Sub Workbook_Open(
Sheet1.Range("A1") = Sheet1.Range("A1") +
End Su

By Juan Pablo Gonzalez on 25-May-2002