Доброго времени суток!  
Нужно чтобы выполнялось следующее условие:  
 
Sub FDAC1()  
 
Dim r As Range  
Dim foundCell As Range  
 
datarez = Range("A1")  
MsgBox datarez  
   
Set r = Worksheets("Лист1").Range("B1:N1")  
Set foundCell = r.Find(datarez, LookIn:=xlValues)  
 
If Not foundCell Is Nothing Then  
MsgBox "it is working"  
         
Else  
MsgBox "it is not working"  
End If  
 
End Sub  
 
Если вводить в поиск дату 12.10.2010 (из диапазона, где данная дата присутствует), то условие идёт на else. Если же водить дату до 09.10.2010 алгоритм выходит на then.    
 
Почему так происходит и как исправить. Голову сломал! Пример в файлике...