Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
If Range("A" & Target.Row).Value <> "" Then
Range("A" & Target.Row).Value = Range("A" & Target.Row).Value + 1
End If
ElseIf Target.Column = 3 Then
If Range("A" & Target.Row).Value <> "" Then
Range("A" & Target.Row).Value = Range("A" & Target.Row).Value - 1
End If
End If
Cancel = True
End Sub
Put the above code in the worksheet you want it to work on. It assumes in column A you have some number. If you double click column B, the number in A goes up by 1. If you double click column C, the number in A goes down by 1. At least, this will give you a good start on what you want.
Bookmarks