change drop down list using vba - combo box in forms

Asked Sep 19 '19 at 15:12

Active Sep 20 '19 at 05:57

Viewed 80 times

How do I access the drop down list to be able to change the 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

When I run this code I get the error

Requested shapes are locked for selection

edited Sep 20 '19 at 05:57

Pᴇʜ

56,719
10
49
73

asked Sep 19 '19 at 15:12

Gerry Waldram

Are these comboboxes from the Forms menu? – SJR Sep 19 '19 at 16:35
You might benefit from reading [How to avoid using Select in Excel VBA](https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba). – Pᴇʜ Sep 20 '19 at 05:58
yes, they are from the Forms menu – Gerry Waldram Sep 23 '19 at 13:13

change drop down list using vba - combo box in forms

0 Answers0