Soniya,

This worked for me

With Application.CommandBars("Worksheet Menu Bar")
With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "Test"
.Style = msoButtonCaption
.OnAction = "myMacro"
End With
End With


Note setting the style, this is critical if you want to see the text <G

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Soniya" wrote in message
ups.com...
Hi All,

I find it easy to add an msoControlPopup menu item to "Worksheet Menu
Bar"

Is it possible to add msoControlButton to "Worksheet Menu Bar" ?

when I tried to get it does,nt work !?

Thanks