Range("A:A").Find поиск по датам - помогите - VB

Формулировка задачи:

На первом листе имеется столбец с датами, вычисленным по особым формулам. На втором листе столбец с датами, введенными вручную. На третьем листе ячейки столбца с датами просто ссылаются на соответствующие ячейки дат на втором листе. Так вот, поиск на втором листе по конкретным датам с первого листа нормально проходит таким вот способом:
For i = 1 To n
Set f = Sheets(2).Range("X:X").Find(what:=CDate(Sheets(1).Cells(i,1)), LookIn:=xlFormulas, LookAt:=xlWhole)
...
Next
Но поиск
For i = 1 To n
Set f = Sheets(3).Range("Y:Y").Find(what:=CDate(Sheets(1).Cells(i,1)), LookIn:=xlFormulas, LookAt:=xlWhole)
...
Next
на третьем листе, где ссылки на даты второго листа, уже не проходит. Помогите решить эту задачку.

Решение задачи: «Range("A:A").Find поиск по датам - помогите»

textual
                            Листинг программы 
                        
                            LookIn:=xlFormulas