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