Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. 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