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

G

Grant

How can I format a cell to automatically assign a new sequential number each
time I open up the excel spreadsheet?
 
J

JLGWhiz

Private Sub Workbook_Open()
Sheets(1).Range("A1").Value = _
Sheets(1).Range("A1").Value + 1
ThisWorkbook.Save
End Sub
 
Top