With a double click,


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

Mike

Mike

"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?