Public Sub FindMenuCommand(ByVal caption As String)
Dim cmd As CommandBar
Dim ctl As CommandBarControl
For Each cmd In Application.VBE.CommandBars
For Each ctl In cmd.Controls
If ctl.caption = caption Then
Debug.Print "Found '" & caption & "' at CommandBar '" & cmd.Name & "', index " & cmd.Index & "; control #" & ctl.Index & "."
End If
Next
Next
End Sub