Почему я не могу удалить этот надоедливый выпадающий список из листа в Excel?

Question

Я пытаюсь удалить выпадающий список из электронной таблицы, используя следующий код:

Dim objShape As Shape
For Each objShape In ActiveSheet.Shapes
    objShape.Delete
Next

Но objShape возвращает Application-Defined or Object-Defined Error:

Debug.Print objShape.FormControlType возвращает xlDropDown
Debug.Print objShape.Name возвращает "Drop Down 250"
Debug.Print objShape.TopLeftCell возвращает Application-Defined or Object-Defined Error

ActiveSheet.Cells.Validation.Delete не избавляется от этого и не использует ShapeRange.

Будем весьма благодарны за любые предложения о том, как устранить этого маленького жучка.

Answer 1

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

Answer 2

Пара идей:

• Есть ли защита листа?
• Является ли часть раскрытия некоторой проверки (допустимые значения могут быть определены и обычно отображаются в виде раскрывающегося списка).