“查找”方法在excel vba中无法用于日期

我使用.find搜索范围（“A20:AD20”）中的特定单元格，该单元格包含与变量Lastdate相同的日期，代码如下：

Set targetcell = ActiveSheet.Range("A20:AD20").Find(what:=Lastdate, LookIn:=xlValues, LookAt:=xlPart) //LookAt:=xlWhole does not work either

---

我调试时Lastdate的值是6/1/2013，单元格W20的值也是6/1/2013。我使用MsgBox并确认范围（“W20”）。值=Lastdate；但是上面的代码找不到任何单元格。有人能帮忙吗？多谢各位

尝试强制执行实际日期：

Sub dural()
    Dim s As String
    s = "8/5/2013"
    Set zell = Cells.Find(What:=CDate(s), After:=Range("A1"), LookIn:=xlFormulas _
                , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    zell.Select
End Sub