VBScriptでExcelを操作するときfindを使うことが出来ません。

ExcelのA列に日付がずらずらと入っているのですがその中から「今日」に該当する部分を探したいと思っています。
findを使うことが出来ないでいます。
Const xlValues = -4163
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open("C:\Book1.xls")
strLastDay = Cstr(Date - 1)
With objExcelApp.WorkSheets("Sheet1").Rangge("A8:A65535")
Set objClm = .Find(Trim(strLastDay),,xlValues)
If Not objClm Is Nothing Then
intCol = objClm.Column
intRow = objClm.Row

このあとどうしたらいいかわかりません・・・お願いします。

つまり、Find の結果が（あるはずなのに）、Nothing になるということですよね。

日付は、エクセルでは、文字列として格納されているのではないので、
文字列として探してもダメだと思います。
単に日付として検索しなくてはダメです。

.Find(Date -1,,xlValues)

としてみたらどうでしょうか。