In the "ThisWorkbook" module:

Private Sub Workbook_Open()
With ThisWorkbook.Sheet1.Range("A1")
.Value = .Value + 1
End With
End Sub


Tim

"mdougherty44" wrote in message
...
How can I set up a cell to automatically increase it's numeric value by 1
every time the workbook is opened? Thanks!