try putting this in the SHEET module. Modify to suit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$A$6" or target.address="$A$7" Then
On Error GoTo fixit
Application.EnableEvents = False
If Target.Value = 0 Then oldvalue = 0
Target.Value = 1 * Target.Value + 1
oldvalue = Target.Value
fixit:
Application.EnableEvents = True
End If
End Sub
--
Don Guillett
SalesAid Software

"Rayco" wrote in message
...
Thanks,

Can I take it one step further?

I need to have six counters on one sheet. Instead of creating a form for
each cell, can I somehow set it up so that it will only increment the cell
that has the focus on it?

Thanks,

Rayco


"Biff" wrote in message
...
Hi!

Excel has a "button" made just for this situation. It's called a
spinner.

Right click any toolbar and from the list, select Forms.

From the toolbar that appears click on the spinner icon. It looks like
an
up
arrow on top of a down arrow.

Get it placed and sized how you want it then right click on it and
select
Format Control.

Fill in the info. The cell link will be the cell that you want to
increase
(or decrease) when you click the arrows.

Biff

"Rayco" wrote in message
...
Hi,

I'm new to the newsgroup. I hope that someone can help me with a
small
challenge.

After reading the through the help sections, I just can't figure it
out.

How can I add a "clicker", where every time that I click on a button
on
a
sheet, a cell advances 1 number?

My gut feeling is that this is not a simple usage of a formula, but,
then
maybe there is one?

Please help.

Thanks for your help.

Rayco