ник: Василий
Ребята помогите новичку пожалуйта не пойму где загвоздка? создал модуль, вписал ,а нехочет работать редиска 
Public Sub StartMainMenu()
Dim cbar As CommandBar
Dim Exist As Boolean
For Each cbar In CommandBars
cbar.Enabled = False
Next cbar
Exist = False
For Each cbar In CommandBars
If cbar.Name = "MainMenu" Then
Exist = True
Exit For
End If
Next cbar
If Not Exist Then
Set cbar = CommandBars.Add(Name:="MainMenu", _
Position:=msoBarTop, MenuBar:=True, Temporary:=False)
End If
cbar.Enabled = True
cbar.Visible = True
With cbar
With .Controls
With .Add(Type:=msoControlPopup)
.Caption = "Поддержка"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Данные"
.Enabled = Общее_декабрь
.OnAction = "Общее декабрь"
End With
End Sub