Не удаляются объекты

[tae1980]

На днях появилась проблема. Не удаляются объекты: листы, панели.
Использую вот эту функцию для удаление панели

Sub DeleteBar(namebar): On Error Resume Next    ' удаление панель
    Dim cbar As CommandBar
    For Each cbar In Application.CommandBars
      ф = cbar.name
        If cbar.name = namebar Then cbar = ""
    Next:
End Sub

А вот эту строчку для создания вновь:

    Set p = Application.CommandBars.Add(name:="Каталог объектов", Position:=msoBarTop, Temporary:=True)

Первый раз панель создается без проблема. в последующие вылетает ошибка "Runtime error 5: Invalid procedure call or argument". При чем раньше все работало.
Так же на строчку

        ActiveWorkbook.Worksheets(tab_name) = ""

Стала вылетать ошибка "Runtime error 438: Object doesn't support this property or method". Если удалить лист в ручную, то проблем не возникает.
Что я сломил? И куда рыть?

[Step_UA]

Для удаления:

        If cbar.name = namebar Then cbar.Delete
           ...
        ActiveWorkbook.Worksheets(tab_name).Delete

или

Sub DeleteBar(namebar)
    On Error Resume Next
    Application.CommandBars(namebar).Delete
End Sub

Первый раз панель создается без проблема. в последующие вылетает ошибка ...

Невозможно создание 2-х панелей с одним именем
P.S. Очень сомневаюсь что это раньше работало ))

[tae1980]

Спасибо! Проблема пропала.
Не поверишь работало аж 5 лет. И в начале дня все работало, потом был сбой, и все как отрезало.