Commandbar Exists


Function CbExists(sCbName As String) As Boolean

    ‘Returns true if sCbName is the name of an existing
    ‘commandbar.
    
    On Error Resume Next
        CbExists = Not Application.CommandBars(sCbName) Is Nothing
    On Error GoTo 0
    
End Function

One Comment

  1. John:

    I don’t know about anyone else, but my initial response time on this blog is getting even slower than JWalk’s.

Leave a comment