Susan Harkins
harkins at iglou.com
Sat Apr 5 20:03:06 CST 2003
The following function lists the commands on the active menu bar -- my question is about the visible/invisible commands? If you remove the If that checks for the Visible property you get a huge list of commands, some I don't even recognize. What are these invisible commands? Susan H. Function NameMenuCommands() Dim menubar As CommandBar Dim menucommand As CommandBarPopup 'Dim menucommand As CommandBar Set menubar = CommandBars.ActiveMenuBar For Each menucommand In menubar.Controls If menucommand.Visible = True Then Debug.Print menucommand.CommandBar.Name End If Next End Function