Skús dať na list tento kód
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Value = Selection.Value + 1
End Sub
A dvojklikom na bunku sa ti pripočíta 1.
Môžeš si dať aj podmienku, aby ti to nerobilo vo všetkých bunkách.citovat