Function CBDeleteCommandBar(strCBarName As String) As Boolean
    On Error Resume Next
    Application.ActiveExplorer.CommandBars(strCBarName).Delete
    If Err = 0 Then
        CBDeleteCommandBar = True
    End If
End Function