Application VisualBasic Script

Function CommandBarExists(n) As Boolean
    Dim cb As CommandBar
    For Each cb In CommandBars
        If UCase(cb.Name) = UCase(n) Then
            CommandBarExists = True
            Exit Function
        End If
    Next cb
    CommandBarExists = False
End Function