Place this in ThisWorkbook-module:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A1") = Worksheets("Sheet1").Range("A1") + 1
ThisWorkbook.Save
End Sub




"basher57" skrev i melding
...
Is it possible to add a counter to an Excel sheet that adds one every time
the file is accessed? Similar to a webpage counter I suppose is what I am
after.