Valami ilyesmire gondoltál?

Sub Teszt()
Dim i As Long

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

End Sub