Half Job
Progress
chWorkSheet:Cells:Find('telefono',,-4123, 2,1,1,FALSE,FALSE):SELECT.
This came from the Macro
Cells.Find(What:="telefono", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Now the problem is how to get the row number