B
Brian
Dim objCmdBar As CommandBarControl
Set objCmdBar = Application.CommandBars("Worksheet Menu
Bar").Controls.Add(Type:=msoControlButton, before:=9)
objCmdBar.Visible = True
objCmdBar.Caption = "Test"
It just produces blank menuitems
Thanks
Set objCmdBar = Application.CommandBars("Worksheet Menu
Bar").Controls.Add(Type:=msoControlButton, before:=9)
objCmdBar.Visible = True
objCmdBar.Caption = "Test"
It just produces blank menuitems
Thanks