Раскрывающиеся страницы Excel в VBA: «Не удалось получить свойство DropDowns класса Worksheet»

Question

У меня есть этот код:

Sub addDropdown(Name)
    ActiveSheet.DropDowns.Add(74.25, 60, 188.25, 87.75).Select
    Set n = ActiveSheet.DropDowns(Name)
    If Not (n Is Nothing) Then
        ActiveSheet.DropDowns(Name).Delete
    End If
    With Selection
        .ListFillRange = "$K$15:$M$19"
        .LinkedCell = "$K$8:$L$11"
        .DropDownLines = 6
        .Display3DShading = False
        .Name = Name
    End With
    ActiveSheet.DropDowns(Name).Display3DShading = True
End Sub

Что приводит к «Ошибка времени выполнения 1004: невозможно получить свойство DropDowns класса Worksheet»

Я нуб VBA, так почемуэто относится к собственности?В соответствии с Object Browser DropDowns - это функция (хотя она не распространяется на .Add позже).

Кроме того, я могу получить доступ к этой вещи позже, добавив что-то в DropDowns.Я просто не понимаю.

Что я хочу сделать, это удалить все существующие ранее выпадающие с таким же именем.

Answer 1

Вам нужно обработать ошибку, если названный выпадающий список не существует

on error resume next
Set n = ActiveSheet.DropDowns(Name)
on error goto 0