Add the following code to the ThisWorkbook code sheet in the Visual Basic
Editor.
Private Sub Workbook_Open()
Dim targetCell As Range
Set targetCell = Sheets("Sheet1").Range("A2") 'change to required cell
targetCell.Value = targetCell.Value + 1
End Sub
Regards
Rowan