Sub AddCustomMenu()
   ' Добавление меню
   With Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
      .Caption = "Архив"
      With .Controls
         ' Добавление и настройка первого пункта
         With .Add(Type:=msoControlButton)
            .FaceId = 280
            .Caption = "Просмотр"
            .OnAction = "Макрос1"
         End With
         ' Добавление вложенного меню
         With .Add(Type:=msoControlPopup)
            .Caption = "База данных"
            With .Controls
               ' Добавление и настройка первого пункта _
                вложенного меню
               With .Add(Type:=msoControlButton)
                  .FaceId = 1643
                  .Caption = "Поставщики"
                  .OnAction = "Макрос2"
               End With
               ' Добавление и настройка второго пункта _
                вложенного меню
               With .Add(Type:=msoControlButton)
                  .FaceId = 1000
                  .Caption = "Покупатели"
                  .OnAction = "Макрос3"
               End With
            End With
         End With
      End With
   End With
End Sub

Application.CommandBars(1).Delete ' через индекс панели
'или
Application.CommandBars("Имя панели").Delete 'через имя панели