Dim rng as Range, FoundCell as Range
Dim res as Variant
set rng = Columns(1).Cells
res = Application.Match(clng(DateValue("1/1/2003")),rng,0)
if not iserror(res) then
set FoundCell = rng(res)
Else
msgbox "Not found"
exit sub
end if

msgbox "Found at " & foundcell.Address

--
Regards,
Tom Ogilvy


"Fred Smith" wrote in message
...
I have a column of dates. I want to find the cell which contains the date
1/1/2003. The code I tried is:

Set Foundcell = Range("A:A").Find(What:="1/1/2003")

Unfortunately, because the dates are in reverse chronological order, the
Find stops at 11/1/2003.

What code do I need to get Excel to check for a date, rather than a
string? I tried What:=#1/1/2003# but that didn't help.

--
Thanks,
Fred