Hi,

I have this code to create CommandBars in Excel.
I can give it .Caption = "VBEtest"
I can give it .OnAction= "VBE_test" --> this is a macro.
I can give it .ShortcutText= "F2" --> this comes after the caption.

But, how do I activate those function buttons in VBE ???

Code:
Sub CreateCustomMenuBars()
    Dim vntEditArray As Variant
    Dim vntHelpArray As Variant
    Dim vntMenuVar As Variant
    vntEditArray = Array(18, 17, 16, 15, 12, 11, 10, 9, 8)
    vntHelpArray = Array(5, 4)
    With Application.CommandBars("Worksheet Menu Bar")
        .Reset
        For Each vntMenuVar In vntEditArray
            .Controls("Edit").Controls(vntMenuVar).delete
        Next
        .Controls("View").delete
        .Controls("Insert").delete
        .Controls("Format").delete
        .Controls("Tools").delete
        .Controls("Data").delete
        .Controls("Window").delete
        .Controls("File").delete
        .Controls("Edit").delete
        .Controls("help").delete
        With .Controls.Add(msoControlPopup)
            .Caption = "&DEY MODULE"
            With .Controls
                With .Add(msoControlButton)
                    .Caption = "&About DEY MODULE"
                    .OnAction = "about"
                    .ShortcutText = "F2" 'how do I activate the F2 button ??
                End With
                With .Add(msoControlButton)
                    .Caption = "&Reset Menus"
                    .OnAction = "RestoreEnvironment"
                End With
                With .Add(msoControlButton)
                    .Caption = "&Show"
                    .OnAction = "Show"
                    .ShortcutText = "F3"
                End With

                With .Add(msoControlButton)
                    .Caption = "&Quit"
                    .OnAction = "QuitApp"
                End With
            End With
        End With
    End With
End Sub