Autosum Macro on Doubleclick?

[milehighgeo]

Hi there,

Instead of using Alt,= to enter an autosum formula, I would like to doubleclick on any cell in a given worksheet and have it enter the autosum formula allowing me to then select my cells to sum. I'm assuming there's a macro involved?

Thanks!

 

[JoeMo]

Try this entered in the ThisWorkbook sheet for your workbook:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim myRng As Range, rStr As String
Set myRng = Application.InputBox("Select a range to sum", Type:=8)
rStr = myRng.Address
Target.Formula = "=SUM(" & rStr & ")"
End Sub

 

[milehighgeo]

Hmmm ... didn't work.

 

[JoeMo]

Where did you place the code?

 

[milehighgeo]

Got it! Looks like I had to double click on 'ThisWorkbook'.

Thanks.