Menu sheet <-> chart

[Zurn]

I have made a sub menu in commandbar 1 (top menu bar)

Dim DJmenu as CommandbarPopup
Set DJMenu = Application.CommandBars(1).Controls.Add _
(Type:=msoControlPopup, Before:=10, temporary:=True)
DJMenu.Caption = "*STARS*"

It works, but when a chart-sheet is selected, it is gone.


What should I do

 

[Dave Peterson]

Maybe add it to Application.CommandBars("Chart Menu Bar"), too???