Right click the worksheet tab and choose View Code. In the code
module that is displayed, paste the following code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
Dim Rng As Range
Set Rng = Range("A1:F18", "A55:G81") ' add more ranges as
necessary
If Not Application.Intersect(Rng, Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value + 1
Application.EnableEvents = True
Cancel = True
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"cwwolfdog" wrote in
message
...
I need code to add 1 to a tally sheet in certain cells. The
sheet has a
bunch of differenct cells that are seperate. Meaning a range
of A1:F18 and
then a different range of A55:G81. There are about 4 different
ranges or
group of cells that I need the user to be able to doubleclick
if they wish to
add 1 to the current value in that cell. Any help is
appreciated.