Put into a DOUBLE click event. Right click sheet tabview codeinsert this.
Why drop down one cell?You may want to restrict to a column or a range by UN
commenting the line I included

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'if target.column<1 then exit sub
Target = Target + 1
Target.Offset(1).Select
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"WindSurfer" wrote in message
...
I use the following to increase the value of a cell by one...
My question is, Is there a way to replace the Keyboard shortcut with a
mouse click instead... I use this for 30-60 minutes at a time, and
would liek to speed things up a little.
Thanks...
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/6/2008
'
' Keyboard Shortcut: Ctrl+l
'
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub