Function Creatmenu()
Dim cmbBar As CommandBar
Dim cmbControl As CommandBarControl
Set cmbBar = Application.CommandBars("Worksheet Menu Bar")
Set cmbControl = cmbBar.Controls.Add(Type:=msoControlPopup, temporary:=True) 'adds a menu item to the Menu Bar
    With cmbControl
        .Caption = "F&reedom" 'names the menu item
            With .Controls.Add(Type:=msoControlButton) 'adds a dropdown button to the menu item
                .Caption = "&Quality" 'adds a description to the menu item
                .OnAction = "Show_Form"  'runs the specified macro
                .FaceId = 142 'assigns an icon to the dropdown
            End With
            With .Controls.Add(Type:=msoControlButton)
                .Caption = "Version 5.0"
                .OnAction = "'" & ThisWorkbook.Name & "'!" & "Helptxt"
                .FaceId = 343
            End With
'            With .Controls.Add(Type:=msoControlButton)
'                .Caption = "My Macro No 3"
'                .OnAction = "RunMyMacro3"
'                .FaceId = 21
'            End With
    End With
End Function