Dim myBar As CommandBar
'Dim SubItem As CommandBarButton
Dim myItem As CommandBarControl

On Error Resume Next 'In case it has already gone.
    Application.CommandBars("Navigation_Bar").Delete
On Error GoTo 0

Set myBar = Application.CommandBars.Add(MenuBar:=True)
    With myBar
    .Name = "Navigation_Bar"
    .Visible = True
    '.Position=msoBarFloating
    'Temporary:=True)
    End With
'Add Menu Item
Set myItem = myBar.Controls.Add(Type:=msoControlPopup)
With myItem
    .Caption = "Actions"
    .BeginGroup = True
'    .FaceId = 334
End With
    
    'First Sub Item
    Set mySubItem = myItem.Controls.Add(Type:=msoControlButton)
    With mySubItem
        .Caption = "Load Components"
        .OnAction = "Load_Components"
    End With
    Set mySubItem = myItem.Controls.Add(Type:=msoControlButton)
    With mySubItem
        .Caption = "Delete Navigation Bar"
        .OnAction = "Delete_Navigation_Bar"
    End With