Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Listing Application CommandBars

Sub Inventory()     Dim cb As commandBar     For Each cb In Application.CommandBars         Debug.Print cb.name         Debug.Print cb.Index         Debug.Print cb.BuiltIn         Debug.Print cb.Enabled         Debug.Print cb.Visible         Debug.Print cb.Controls.Count     Next     Set cb = Nothing End Sub