Opcion FIND Excel VBA

[buddyk9]

Hola amigos del foro:
Desde una hoja de cálculo, quiero buscar una serie de valores (variable WELL2) en otra, para luego recuperar el valor de unas celdas asociadas a este (variable B1), en la celda siguiente.
Lo consigo con el siguiente script:

Range("A15:A220").Find(What:=WELL2, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
B1= ActiveCell.Offset(0, 1).Value

Tengo un problema con la opción FIND, como programarlo, ya que cuando no encuetra el valor WELL2, y puede ocurrir, en vez de dejarlo en blanco e ir por el siguiente, se me queda colgado........

¿como puedo conseguir programarlo para que si no encuentra un valor de la variable WELL2 en el rango, no haga nada y continue el script?

Gracias