Создание пользовательских меню

[Наталья Ивановна]

Пытаюсь создать меню Анализ. вешает ошибку "Type mismatch" на выделенную строку.
Может кто-нибудь знает в чем может быть ошибка? Подскажите, пожалуйста

Sub DeleteMenu()
 
On Error Resume Next
Application.CommandBars(1).Controls("&Анализ").Delete
On Error GoTo 0
 
End Sub
'_______________________________________________________________
Sub CreateMenu()
 
'MsgBox CommandBars(1).Controls("Справка").ID
 
Dim HelpMenu As CommandBarControl
Dim MenuObject As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim SubMenuItem As CommandBarButton
 
Call DeleteMenu
 
Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
 
If HelpMenu Is Nothing Then
 
    Set MenuObject = CommandBars(1).Controls.Add(Type:=msoControlPopup, _
temporary:=True)
    
Else
   
Set MenuObject = CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=HelpMenu, temporary:=True) 
    
End If
 
MenuObject.Caption = "&Анализ"
 
Set MenuItem = MenuObject.Controls.Add(Type:=msoControllButton)
    MenuItem.OnAction = "Irvin"
    MenuItem.Caption = "&Цензурирование выборки"
 
End Sub

[EducatedFool]

Во-первых, в строке Set MenuItem = MenuObject.Controls.Add(Type:=msoCo ntrollButton) синтаксическая ошибка.

Во-вторых, вполне хватит и этого кода:

Sub DeleteMenu()
    On Error Resume Next
    Application.CommandBars(1).Controls("&Анализ").Delete
End Sub

Sub CreateMenu()
    Call DeleteMenu
    
    Set MenuObject = CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
    MenuObject.Caption = "&Анализ"
    
    Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
    MenuItem.OnAction = "Irvin"
    MenuItem.Caption = "&Цензурирование выборки"
End Sub

[Наталья Ивановна]

ОООООООО!!!!!!!!!!!!!!!!!!!! Спасибо ОГРОМНОЕ!!!!!!! Все прекрасно работает Вы-супермозг ))))))))