Обьясните пожалуйста почему не пашет следующий код:
Dim o As CommandBarPopup
Dim o1 As CommandBarButton
Dim a As CommandBarPopup
Dim a1 as CommandBarButton
num = 13

Set o = Application.CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=num)
o.Caption = menunameo

Set o1 = Aplication.CommandBars(menunameo).Controls.Add(Type:=msoControlButton, Before:=1)
o1.Caption = menunameo1
o1.OnAction = RunMacro1

Set a = Application.CommandBars(menunameo).Controls.Add(Type:=msoControlPopup, Before:=2)
a.Caption = menunamea

Set a1 = Application.CommandBars(menunamea).Controls.Add(Type:=msoControlButton, Before:=1)
a1.Caption = menunamea1
a1.OnAction = RunMacro2

В общем примерно такая структура, не буду весь код выкладывать, ибо он оч большой.

Проблемма в том, что, когда я запускаю сей макрос, то на 2ой строке вылетает ошибка обджект рекваеред... При том первая менюшка создается... 8(