Sub AddCltToChartMenu()
Dim cbct As CommandBarControl
Dim cbPop As CommandBarPopup
Set cbPop = Application.CommandBars("Chart Menu Bar").Controls("&Chart")
Set cbct = cbPop.Controls.Add(msoControlButton)
cbct.Caption = "Test"
End Sub

--
Regards,
Tom Ogilvy

Andrew wrote in message
om...
Can anyone help me to get the following to work? It works fine when
adding a button to the menus on the "Worksheet Menu Bar" (eg. replace
"Chart" with "File") but I can't seem to get it to work for the Chart
menu.

Sub AddCltToChartMenu()
Dim cbct As CommandBarControl
Set cbct =
Application.CommandBars("chart").Controls.Add(msoC ontrolButton)
cbct.Caption = "Test"
End Sub

Thanks,
Andrew