Increase the value of a cell by one... With a mouse click...

[WindSurfer]

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

 

[Don Guillett]

Put into a DOUBLE click event. Right click sheet tab>view code>insert 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