How can I format a cell to automatically assign a new number?

  • Thread starter Thread starter Grant
  • Start date Start date
G

Grant

How can I format a cell to automatically assign a new sequential number each
time I open up the excel spreadsheet?
 
Private Sub Workbook_Open()
Sheets(1).Range("A1").Value = _
Sheets(1).Range("A1").Value + 1
ThisWorkbook.Save
End Sub
 
Back
Top