Hallo

Ich habe folgenden Code, und es klappt auch (neues Menu mit 1 Unterpunkt), aber MyProcedure() wird zweimal ausgeführt wenn man es anwählt, und sogar einmal nur schon wenn man die Menu-Erstell-Prozedur laufen lässt!

Wie kann man das so gestalten, dass MyProcedure nur beim Klick auf den Unterpunkt ausgeführt wird?

Thanks

Patrick


' Identify built-in menu bar to work with.
Set cbmCommandBarMenu = Application.CommandBars(strMenuBarName)

' Add the new menu.
With cbmCommandBarMenu.Controls
Set cbmNewMenu = .Add(Type:=msoControlPopup)

' Set caption for new menu.
With cbmNewMenu
.Caption = MenuBarItem

' Add single menu items and set properties.
With .Controls.Add(msoControlButton)
.OnAction = "MyProcedure()"
.Caption = ControlItem1
.Tag = ControlItem1
End With

End With

End With
End Sub