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