строка меню

[merick]

Напишите процедуру, которая создавала бы и выводила на экран строку меню (с именем Пример17), содержащую пункты Файл, Правка и Справка. Напишите еще одну процедуру для удаления этой строки меню. На свободном рабочем листе создайте две командные кнопки, которые выполняли бы эти процедуры.
Вот код:

Sub Пример17()
 
Dim Ex17menubar As CommandBar
 
Dim mymenu As Object
 
Dim mymenuitem As Object
 
Set Ex17menubar = CommandBars.Add(Name:="Пример17", 
 
Position:=msoBarTop, MenuBar:=True, Temporary:=True)
 
With Ex17menubar
 
.Controls.Add Type:=msoControlPopup, ID:=30002, Before:=1
 
.Controls.Add Type:=msoControlPopup, ID:=oon, Before:=2
 
.Controls.Add Type:=msoControlPopup, ID:=30010, Before:=3
 
.Visible = True
 
End With
 
CommandBars("Worksheet Menu Bar").Visible = False
 
End Sub
 
Sub УдалениеПримера17()
 
CommandBars("Пример17").Delete
 
End Sub

Проблема в том что программа выдает ошибку №5 при запуске, можете помочь исправить ошибку?

[EducatedFool]

Public CB_name$

Sub Пример17()
    Dim Ex17menubar As CommandBar, mymenu As Object, mymenuitem As Object
    CB_name$ = "Пример" & Rnd() * 1000 ' присваиваем новое имя панели

    Set Ex17menubar = Application.CommandBars.Add(Name:=CB_name$, Position:=msoBarTop, MenuBar:=True, Temporary:=True)
    With Ex17menubar
        .Controls.Add Type:=msoControlPopup, ID:=30002, Before:=1
        .Controls.Add Type:=msoControlPopup, Before:=2
        .Controls.Add Type:=msoControlPopup, ID:=30010, Before:=3
        .Visible = True
    End With
    Application.CommandBars("Worksheet Menu Bar").Visible = False
End Sub

Sub УдалениеПримера17()
    Application.CommandBars(CB_name$).Delete
End Sub