Здравия всем!    
Пытаюсь сделать надстройку, чтоб при открытии Excel создавал CommandBar. Данная надстройка планировалась распространятся, так что варианта что-либо "доделать руками" нет.    
Написал код:    
 
Private Sub Workbook_Open()  
  With Application.CommandBars.Add(Name:="Правая панель")  
     ' Создание и настройка кнопки  
     With .Controls.Add(Type:=msoControlButton)  
        .Style = msoButtonWrapCaption  
        .Caption = "Добавить рецептуру"  
        .OnAction = "ТутМакрос"  
     End With  
     .Position = msoBarRight  
     .Visible = True  
  End With  
End Sub    
Вставил его соответственно в Workbook_Open. Сохранил как .xla, добавил в надстройки.    
При загрузке, макрос срабатывает, добавляя панель, но по окончанию панель уничтожается видимо, хотя по моему разумению должна остаться (ведь добавляется на уровне Application).  
Подскажите: как добавить панель, через надстройку?