codigo que devuelva la referencia de ubicacion de una cadena de texto

Estimados amigos necesito arreglar el siguiente codigo de tal manera
que los datos que ponga en la celda b2 (que lo meti como la variable
declarada clave_00) sean buscados dentro de una matriz de datos, donde
existen registros alfanumericos en las celdas, lo que deseo es que me
devuelva el numero de fila de esa matriz (en la celda e2) donde
localice esa parte de la cadena de texto introducida en b2, gracias de
nuevo.

el codigo que he hecho la busca y me informa el numero de celda pero
reemplaza en la celda encontrada con la formula de buscar fila.

Isaac

Sub a()
'
' a Macro
' Macro grabada el 07/08/2006 por ING. ISAAC GARCÍA LÓPEZ
'

'
Application.Goto Reference:="clave_00"
Cells.Find(What:=Clave_00, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E2").Select
ActiveCell.FormulaR1C1 = "=ROW(R[41]C)"
End Sub