Al,

I missed you wanted to add or subtract so try this. A plus sign in B1 makes
it add. B1 blank makes ot subtract.

Mike

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$A$1" Then
If IsNumeric(Target) Then
On Error Resume Next
If ActiveCell.Offset(0, 1).Value = "+" Then
Target = Target + 0.1
Else
Target = Target - 0.1
End If
ActiveCell.Offset(0, 1).Select
On Error GoTo 0
End If
End If
End Sub

"Al" wrote:

I need to incrementally increase or decrease cell values until I get an exact
result in a dependant cell:- 19.9, 19.8, 19.7...19.5...bingo!
Is there a way that I can achieve this with mouse clicks...each click
subtracts/adds 0.1 - or any other integer that I specify - to the cell value?