Создание выпадающего списка через столбец после вставки значений в лист

Question

Итак, я пытаюсь создать выпадающий список по всему столбцу после вставки новых данных в лист. Таким образом, действие вставки приведет к созданию раскрывающегося списка в последнем столбце. На данный момент я написал код, но он не работает. Любая помощь?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, r1 As Range
Set Rng = Range("AQ7:AQ10000")
If Intersect(Target, Rng) Is Nothing Then Exit Sub
For Each r1 In Rng
r1.Select
 With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=YES"
    .IgnoreBlank = True
    .InCellDropdown = True
    .ShowInput = True
    .ShowError = True
 End With
Next

Answer 1

Для Static List Values: вы должны использовать Formula1:="Yes,No".

Для Dynamic List Values: сначала сохраните раскрывающийся список в cells, а затем используйте его. Или вы также можете определить named range и затем использовать его в Formula.

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Sheet1!B1:B6"