Can anyone advise as to why the following produces a
Runtime error 9; "Subscript out of range"

Dim FndRng1 As Range
Dim DivRng1 As Range

Set DivRng1 = ThisWorkbook.Sheets("Medal").Range
("D6:D705")

Set FndRng1 = DivRng1.Find(What:="1", _
After:=DivRng1.Cells(DivRng1.Cells.Count), _
LookIn:=x1Values, _
LookAt:=xlWhole)

If the LookIn statement is removed, no error. I'm
looking for a value returned from a formula in the cell.

Thanks

Tom