изменить выпадающий список, используя vba - поле со списком в формах

Question

Как получить доступ к раскрывающемуся списку, чтобы иметь возможность изменить ListFillRange?

If Worksheets("home").Range("K17").Value = "December" Then
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
    With Selection
        .ListFillRange = "Lists!$D$16:$D$27"
        .LinkedCell = "Home!$J$11"
        .DropDownLines = 12
        .Display3DShading = True
    End With
    Else
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
    With Selection
        .ListFillRange = "Lists!$D$2:$D$13"
        .LinkedCell = "Home!$J$11"
        .DropDownLines = 12
        .Display3DShading = True
    End With
End If

Когда я запускаю этот код, я получаю сообщение об ошибке

Запрошенные фигуры заблокированына выбор