Ошибка 424 при использовании макроса

[zIP]

Пытаюсь активировать макрос при открытии книги. Должен убирать все панели инструментов.

Код: Выделить всё

Private Sub Workbook_Activate()
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
End Sub

Выдает ошибку 424 Object Required.
Почитал справку - ничерта не понял.

Нужно указывать книгу как объект?

[GSerg]

In application.CommandBars

[zIP]

In application.CommandBars

Если честно, то не понял, что мне с этим делать.

[zIP]

Дошло. Спасибо.