Hello,

Is there an equivalent to FindControl for a submenu item? E.g., in the
following code, I'd like the last line to be something like
Set cbarbutton = cbarcontrol.FindControl(ID:=542):

Sub test()
Dim cbar As CommandBar
Dim cbarcontrol As CommandBarControl
Dim cbarbutton As CommandBarButton

Set cbar = CommandBars("Format")
Set cbarcontrol = cbar.FindControl(ID:=30025)
Set cbarbutton = cbarcontrol.Controls("Width...")
End Sub

Thanks,

Doug Glancy