Article ID: 181396
Article Last Modified on 6/17/2005
Public Sub RemoveSubMenu()
Dim objMenuBar As Object
' Opens MyMenu which contains the submenu you want to remove.
Set objMenuBar = CommandBars.ActiveMenuBar. _
Controls("MyMenu").CommandBar
' Removes MySubMenu.
objMenuBar.Controls("MySubMenu").Delete
End Sub
179216 OFF98: How to Use the Microsoft Office Installer Program
173707 OFF97: How to Run Sample Code from Knowledge Base Articles
163435 VBA: Programming Resources for Visual Basic for Applications
Additional query words: wordcon vba vbe
Keywords: kbhowto kbmacroexample kbdtacode KB181396