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