Here is one way, but not the most elegant...

The following code will increase the value in "E4" by one if you doubl
click that cell with the left button. The value will decrease if yo
right-click on that cell. (Excel 97)

In a new workbook insert the following code under "Sheet1" in th
VBA-Project window (Do not insert it in a module it will not work!)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range
Cancel As Boolean)
If Target.Address = "$E$4" Then
Cells(4, 5) = Cells(4, 5) + 1
End If
Cells(5, 5).Select
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range
Cancel As Boolean)
If Target.Address = "$E$4" Then
Cells(4, 5) = Cells(4, 5) - 1
End If
End Sub

Hope this helps..

--
Message posted from http://www.ExcelForum.com