Hi,

I have this code and 2 problems;

Sheets("calendar").Activate
Dim foundcell As Range
Dim this
this = activecell.Value
Debug.Print this
Set foundcell = cells.find(what:=this, After:=activecell,
LookIn:=xlFormulas, LookAt _
       :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
       True)
    If foundcell Is Nothing Then
    foundcell.Activate

As a test i have typed cow in 2 cells, and run the code with the first
"cow" cell selected.

The code errors on the foundcell.activate, run time error '91', object
variable or with block variable not set. It is obviously finding the
second "cow" but will not select it.

My second problem is if i change the cell vaues from cow to dates eg,
01/01/2008 the find does not work at all.

Thanks,