Excel: поиск даты с помощью Sheet().Find - VB

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

Добрый день.
Подскажите, пожалуйста, в чем может быть проблема с неработающим методом Sheet().Find.
Для What подставляю переменную-дату - в результате Find ничего не находит.
Спасибо

Решение задачи: «Excel: поиск даты с помощью Sheet().Find»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> one()

<font color="blue">Dim</font> myDate <font color="blue">As</font> <font color="blue">Date</font>, myCell <font color="blue">As</font> <font color="blue">Object</font>

myDate = <font color="blue">Date</font>
    <font color="blue">Set</font> myCell = ThisWorkbook.Sheets(<font color="teal">"2"</font>).Range(<font color="teal">"B:B"</font>).Find( _
                        what:=DateValue(myDate), _
LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
    <font color="blue">If</font> <font color="blue">Not</font> myCell <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font>
        MsgBox myCell.Row
        <font color="blue">Exit</font> <font color="blue">Sub</font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        