Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Counting custom toolbars

Sub CustomToolbars()     Dim cb As CommandBar     For Each cb In CommandBars         If cb.Type = msoBarTypeNormal Then             If Not cb.BuiltIn Then                 Debug.Print "Not"             End If         End If     Next cb End Sub