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