Frank:

Thank for your help. I tried this, but I receive an
error 91 on the Set statement. Any ideas what I might be
doing wrong?

Thanks,
Mike.

p.s. There is something wrong with the posting ... I
cannot find the previous posting unless I do a search.

-------------------
Hi Mike
try

Set OFound = Cells.Find(What:=mydate, After:=ActiveCell,
LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

If Not oFound Is Nothing Then
oFound.activate
else
msgbox "not found"
End If