Hey Greg,

Thanks for the information. I was having the same problem as well and found your post online.

However, I am having a problem with the code. After I run the following code:

Sub Autosum()

CommandBars.Fin dControl(ID:=22 6).Execute
Application.Sen dKeys "~"

End Sub

I cannot get the autosum to stay in the active cell. The code...