Ошибка выполнения макроса Vba 1004: определено приложение ....

---

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
With Target.Validation
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, _
 Operator:=xlEqual, Formula1:="=Sheet1!S1:S22"
End With

ElseIf Target.Column = 3 Then
With Target.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, _
Operator:=xlEqual, Formula1:="=Sheet1!T1:T22"
End With
End If

End Sub

Что я уже пробовал:

Здесь я просто пытаюсь получить список валидаций данных с помощью vba, но все еще не могу выполнить

---