Más que colgar creo que debería dar un error al no encontrar coincidencias
. Prueba así:
Código vb:
Ver originalDim Finding As Range
Set Finding = Range("A15:A220").Find(What:=WELL2, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Finding Is Nothing Then Exit Sub
Finding.Activate
B1= ActiveCell.Offset(0, 1).Value
Lo que hace es tomar el valor de retorno del método Find (un objeto Range) y comparar si es Nothing (cuando no se encuentra), y si así es salir del procedimiento.