Problema Opcion Find VBA Excell

[buddyk9]

Al final lo que buscaba me ha funcionado con esta subrutina, que la pego por si puede ser util a alguien.
Busca un valor de la hoja1 (variable H1) en el rango A5:A55 de la hoja2, y cuando lo encuentra, devuelve el valor de la celda de su derecha ( ActiveCell.Offset(0, 1).Value ) como variable frec en la hoja 1.

Sub Calculo()

Dim H1 As String, frec As String

Sheets("Hoja1").Select
H1 = 12
Sheets("Hoja2").Select
Range("A5:A55").Find(What:=H1, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
frec = ActiveCell.Offset(0, 1).Value

Sheets("Hoja1").Select
Cells(2, 2).Value = frec

End Sub

Gracias por vuestra ayuda