Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim a
a = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
If IsError(Application.Match(Target(1), a, 0)) Then Exit Sub
Cancel = True
Target(4, 4) = Target(4, 4) + 1
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a
a = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
If IsError(Application.Match(Target(1), a, 0)) Then Exit Sub
Cancel = True
Target(4, 4) = Target(4, 4) - 1
If Target(4, 4) <= 0 Then Target(4, 4) = ""
End Sub