why doesn't this caption property work
 

Dim objCmdBar As CommandBarControl

Set objCmdBar = Application.CommandBars("Worksheet Menu
Bar").Controls.Add(Type:=msoControlButton, befo=9)

objCmdBar.Visible = True
objCmdBar.Caption = "Test"

It just produces blank menuitems

Thanks

why doesn't this caption property work
 

DUUUUUHHHHHHHHHHHHHHHHHHHHHHHH

msoControlPopup

sorry, mind blank thing


"Brian" wrote in message
...
Dim objCmdBar As CommandBarControl

Set objCmdBar = Application.CommandBars("Worksheet Menu
Bar").Controls.Add(Type:=msoControlButton, befo=9)

objCmdBar.Visible = True
objCmdBar.Caption = "Test"

It just produces blank menuitems

Thanks