Sub ShowControlCaptions() Dim myCommandBar As commandBar Set myCommandBar = CommandBars("Standard") For Each ctl In myCommandBar.Controls Debug.Print ctl.Caption Next ctl