Reply to thread

Message: [QUOTE="Joel Mills, post: 6019879"] This still doesn't add a "Chart Menu Bar". What am I missing? I changed CommandBars(1) to CommandBars(CBId) on the If then Else statements and now it creates the Chart Menu Bar and not the Menu Bar. This must be very close to the code I'm looking for. Sub UpdateCB(CBId As Long) Dim NewMenu As CommandBarPopup ' Delete the menu if it already exists Call DeleteMenu ' Find the Help Menu Set HelpMenu = CommandBars(CBId).FindControl(ID:=30010) If HelpMenu Is Nothing Then ' Add the menu to the end Set NewMenu = CommandBars(CBId).Controls.Add _ (Type:=msoControlPopup, _ Temporary:=True) Else ' Add the menu before Help Set NewMenu = CommandBars(CBId).Controls.Add _ (Type:=msoControlPopup, _ Before:=HelpMenu.Index, _ Temporary:=True) [/QUOTE]