se tu hai il valore in una variabile:

MyStr="CIAO"

fai cosi':

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