Проверка наличия панели инструментов

[agregator]

Здравствуйте, уважаемые программисты. Подскажите пожалуйста, как написать следующее условие:
If Панель инструментов "Таскать" существует Then ...
т.е. проверить существует ли уже панель инструментов с названием "Таскать".

[EducatedFool]

Можно так:

Sub test()
    On Error Resume Next: Err.Clear: x = Application.CommandBars("Таскать").Enabled
    If Err Then MsgBox "нет панели" Else MsgBox "есть панель"
End Sub

[agregator]

EducatedFool, спасибо за помощь.