Добавление списка проверки данных (раскрывающегося списка) в диапазон ячеек?

У меня есть большой диапазон ("C2: C100") для добавления раскрывающегося списка.

Я пробовал следующее:

With Worksheets("Sheet2").Range("c2:c100").Validation
.Add xlValidateList, xlValidAlertStop, xlBetween, "=Sheet3!a2:a5"
.InCellDropdown = True
End With

Но это сработало только для ячейки C2. Итак, я попробовал:

With Worksheets("Sheet2").Range("c2:c100")
    With .Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1: = "=Sheet3!a2:a5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End With

И продолжали получать ошибку со строкой ".Add Type..."