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

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

Zurn wrote:

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?

--
Zurn
------------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...o&userid=14645
View this thread: http://www.excelforum.com/showthread...hreadid=538071

--

Dave Peterson