Con't 'Hide' toolbar

[mikeymay]

I am using the following routine to list the name any visible toolbars

Sub CountToolbars()

Dim intToolbarCount As Integer

For intToolbarCount = 1 To Application.Toolbars.Count
    If Application.Toolbars(intToolbarCount).Visible = True Then
        Selection = Application.Toolbars(intToolbarCount).Name
        Selection.Offset(1, 0).Select
        Else
    End If
Next intToolbarCount

End Sub

This works for the majority of toolbars I am using but it seems to miss out the 'Control Toolbox' toolbar and also when I look at the toolbars available vis 'Customize' there are a lot more toolbars available.

Is there a way of checking if any of the toolbars that can be used are visible?