Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Referring to command bars

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