pessoal, estou pegando o erro do titulo acima ao executar uma sub rotina.

mas eu queria saber o que está errado. em todos os foruns me encaminham pra um codigo bem diverso, com new item e with com, mas isso nao ajuda no aprendizado.

eu preciso saber o que o trecho abaixo (que tirei integralmente do livro de vba e serve pra adicionar um item no menu) tem de errado. todas as instruçoes seguintes sao baseadas nele.

Sub MenuCommand()
    CommandBars("Worksheet Menu Bar").Controls("Tools").Controls.Add("Type:=msoControlButton").Caption = "MyMenu"
    CommandBars("Worksheet Menu Bar").Controls("MyMenu").OnAction = "Test_Menu"
End Sub

estou usando o excel 2013