Delete menu

[Todd Huttenstine]

Hey guys

I have a menu called "SMS Functions" on the menu toolbar
at the the top of Excel. Its next to the "Help" menu.

How do I programmatically delete this menu item?


Thank you
Todd Huttenstine

 

[Tom Ogilvy]

application.CommandBars("Worksheet Menu Bar").Controls("SMS
Functions").Delete

 

[Todd Huttenstine]

Thank you

-----Original Message-----
application.CommandBars("Worksheet Menu Bar").Controls ("SMS
Functions").Delete

--
Regards,
Tom Ogilvy




.

 

[Soo Cheon Jheong]

Todd,

Try
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub TEST()

Dim CTL As CommandBarControl
For Each CTL In Application.CommandBars(1).Controls
If Application.Trim(CTL.Caption) = "SMS Functions" Then
CTL.Delete
End If
Next

End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -


--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--