Hey,
Thank you for your responses.
I found a link on the Microsoft website which had this code and wa
able to help me. Thanks

Sub Menu_Create()
Dim myMnu As Object
Set myMnu = CommandBars("Worksheet menu bar").Controls. _
Add(Type:=msoControlPopup, befo=3)
With myMnu
' The "&" denotes a shortcut key assignment (Alt+M in this case).
.Caption = "jkhgkjhgjhgkhg"
End With
End Sub

The web site was
http://support.microsoft.com/defaul...502&Product=xlw

Thank

--
Message posted from http://www.ExcelForum.com