Bocsi, kicsit próbálgattam és úgy maradt, szóval:

Sub Teszt()
Dim i As Long

  For i = 1 To Application.CommandBars("File").Controls.Count
    MsgBox i & " -> " & Application.CommandBars("File").Controls(i).Caption
  Next i

End Sub