Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Show CommandBar Names

Sub ShowCommandBarNames()     Cells.Clear     Row = 1     For Each myCommandBar In CommandBars         Cells(Row, 1) = myCommandBar.Index         Cells(Row, 2) = myCommandBar.Name         Select Case myCommandBar.Type             Case msoBarTypeNormal                 Cells(Row, 3) = "Toolbar"             Case msoBarTypeMenuBar                 Cells(Row, 3) = "Menu Bar"             Case msoBarTypePopUp                 Cells(Row, 3) = "Shortcut"         End Select         Row = Row + 1     Next myCommandBar End Sub