>>808
2013の資料が手元にないけど、2007なら
Application.CommandBars.FindControl(ID:=1849).Execute