The following code works fine for me fine when searching for a text string within the current worksheet:
Cells.Find(What:="TEXT STRING HERE", LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).activate...