Hi phil

Run you code also for number 2
CommandBars(2)...................

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Phil" wrote in message oups.com...
How do I get a commandbar to appear on all worksheet and chart pages?
(The following code creates MyMenu visible only from worksheets, but
not from chart pages.)

Thanks for your thoughts.

Dim cp_NewMenu As CommandBarPopup
Dim i_HelpIndex As Integer
i_HelpIndex = CommandBars(1).Controls("&Help").Index
Set cp_NewMenu = CommandBars(1) _
.Controls.Add(Type:=msoControlPopup, _
Befo=i_HelpIndex, Temporary:=True)
cp_NewMenu.Caption = "&My Menu"

Phil