Here is an example

With Application.CommandBars("Standard")
With .Controls.Add(Type:=msoControlPopup, temporary:=True)
.Caption = "BobsTest"
With .Controls.Add(Type:=msoControlButton)
.Caption = "SubMacro1"
.OnAction = "submacro1"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "SubMacro2"
.OnAction = "submacro2"
End With
'etc.
End With
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Thyagaraj" wrote in message
oups.com...
Dear Friends,

Can any one give me a code to create a drop down menu on the standard
toolbar.



Thanks in Advance

Regards
Thyagaraj