Try this. Right click sheet tabview codeinsert this. Works on double_click
of cell b18 only

Option Explicit
Dim oldvalue As Double

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As
Boolean)
On Error GoTo fixit
Application.EnableEvents = False
if target.address<"$B$18" then exit sub
If target.Value = 0 Then oldvalue = 0
target.Value = 1 + oldvalue
oldvalue = target.Value
fixit:
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

"tmobccr2" wrote in message
oups.com...
Greetings. I am trying to add a simple (or so it would seem) script
to an excel workbook, and having spent the weekend trying to find how,
am now turning to this group for help. I have created a command
button in a worksheet. I need this button to keep a tally, so to
speak. Essentially, I have one cell that is going to increase in
value by a factor of one each time the button is clicked. So, as an
example, cell B18 = 1. Command Button is clicked once, B18 now equals
2, etc. Can this be done via VB in excel? It would seem simple to
do, but I am stumped. Any help is appreciated. Thanks!