AutoSum shotcut doesn't work

**bristly** · 01-11-2012, 07:47 AM

Yes, it does.

**OnErrorGoto0** · 01-11-2012, 08:02 AM

Perhaps you could use Application.Onkey to override whatever is breaking it


Sub DoAutoSum()
   Dim obj
   Application.CommandBars.FindControl(ID:=226).Controls(1).Execute
End Sub
Sub setkey()
   Application.OnKey "%=", "DoAutoSum"
End Sub

You could have Setkey run in the Workbook_Open event of an addin or your Personal macro workbook?

**bristly** · 01-11-2012, 08:18 AM

I don't know how to use the Setkey. I, however, assigned a shortcut to DoAutoSum macro and it works! So it still bothers me a little what's wrong with my configuration but this solutions meets my needs perfectly. Thank You very much!