[Pliomera]

Пусть в ячейке A3 листа с именем Sheet1, записана 1.

Тогда открываешь редактор VBA и пишешь в модуле листа:

Private Sub Worksheet_Activate()

Sheets("Sheet1").Cells(3,1).Value = Sheets("Sheet1").Cells(3,1).Value + 1

End Sub

После этого у тебя будет изменяться значение в ячейке A3 при каждой активации листа.