View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
WindSurfer WindSurfer is offline
external usenet poster
 
Posts: 1
Default Increase the value of a cell by one... With a mouse click...

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