Application.CommandBars.FindControl(ID:=226).Controls(1).Execute
ID:=226の部分を変えるとオートSUMをAverageにしたり他のコマンドも色々できます。
詳しくは表を参照
目次
Office2013 のコード表
Office 2013 Help Files: Office Fluent User Interface Control Identifiers
https://www.microsoft.com/en-us/download/details.aspx?id=36798
Office2016 のコード表
Office 2016 Help Files: Office Fluent User Interface Control Identifiers
https://www.microsoft.com/en-us/download/details.aspx?id=50745
