ошибка Range?

Есть такой код, почему-то выдает ошибку "метод Select из класса Range выполнен неверно".????


If Лист1.Range("a1") = 1 Then
Лист9.Range("Y6").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$Ad$9:$Ad$10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
......