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