Как добавить проверку данных в ячейку с помощью VBA

Я хочу добавить «проверку данных» в ячейку (которая является переменной) с использованием VBA, и диапазон, который должен появиться в списке проверки данных, также является переменной. До сих пор я использовал это

Здесь «range1» - это диапазон, который должен появиться в списке проверки данных, а «rng» - это ячейка, в которой я хочу проверить данные.

Dim range1, rng As range
Set range1 = range("a1:a5")
Set rng = range("b1")
With rng
With .Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="range1"
End With
End With

Я получаю сообщение "Ошибка приложения и объекта"

Также кто-то может объяснить мне значение различных аргументов в

With .Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="range1"

Ответы на вопрос(1)

Ваш ответ на вопрос