Adding New Menu

[Daniel Klann]

Hi,

Do you mean through code?

Sub AddMenu()
    Dim ComPop As CommandBarPopup
    Dim Combut As CommandBarButton
    Set ComPop = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup)
    ComPop.Caption = "My New Menu"
Set Combut = ComPop.Controls.Add(msoControlButton)
    Combut.Style = msoButtonCaption
    Combut.Caption = "Button 1"
    Combut.OnAction = "MyMacro"
    Set Combut = ComPop.Controls.Add(msoControlButton)
    Combut.Style = msoButtonCaption
    Combut.Caption = "Button 2"
    Combut.OnAction = "MyMacro"
End Sub

Sub MyMacro()
    MsgBox "You pressed " & Application.CommandBars.ActionControl.Caption
End Sub

HTH
Dan