Problem med værktøjslinie

Jeg tilføjer en værktøjslinie således:


Private Sub CommandButton1_Click() 'På ark
On Error Resume Next
Application.CommandBars("MINMENU").Delete
Application.CommandBars.Add(Name:="MINMENU").Visible = True
CommandBars("MINMENU").Position = msoBarTop

Set newItem = CommandBars("MINMENU").Controls.Add(Type:=msoControlButton) '
With newItem
    .BeginGroup = True
    .Caption = "Små bogstaver"
    .FaceId = 7582
    .OnAction = "SmaaBogstaver"
   
End With

Set newItem = CommandBars("MINMENU").Controls.Add(Type:=msoControlButton) '
With newItem
    .BeginGroup = True
    .Caption = "Store bogstaver"
    .FaceId = 306
    .OnAction = "StoreBogstaver"
End With

Set newItem = CommandBars("MINMENU").Controls.Add(Type:=msoControlButton) '
With newItem
    .BeginGroup = True
    .Caption = "Lodrette funktioner"
    .FaceId = 1036
    .OnAction = "LinieskiftLodret"
End With

Set newItem = CommandBars("MINMENU").Controls.Add(Type:=msoControlButton) '
With newItem
    .BeginGroup = True
    .Caption = "Vandrette funktioner"
    .FaceId = 1038
    .OnAction = "LinieskiftVandret"
End With

Set newItem = CommandBars("MINMENU").Controls.Add(Type:=msoControlButton) '
With newItem
    .BeginGroup = True
    .Caption = "Åben/aktivér Word"
    .FaceId = 2498
    .OnAction = "OpenWord"
End With

End Sub

I modul:
Option Explicit

Dim NewMenuItem As CommandBarControl
Dim newItem As Object


Dog har jeg det problem at hvis jeg putter koden ind i WorkBook_Open får jeg lavet en menu uden knapper, og som ikke er pladseret på værktøjsbjælken.

Det er meningen at brugere skal kunne installere værktøjslinien som et tilføjelsesprogram! Hvad er der galt? Er det også muligt at tilføje genvejstaster når det er FaceId der vises frem for Tag-teksten?