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, Befo=10, temporary:=True)
DJMenu.Caption = "*STARS*"

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


What should I do

--
Zur
-----------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...fo&userid=1464
View this thread: http://www.excelforum.com/showthread.php?threadid=53807