Hi all,
I found some code which is suppose to display all menu items:
Dim CB As Commandbar, crl As CommandBarControl
Set CB = CommandBars("Menu Bar")
For Each crl In CB.Controls
Msgbox crl.Caption
Next
However the code displays the default menu items and not my custom menu which I defined...