Hola! Necesito buscar valores de un rango

Hola En una pregunta parecida encontre este codigo
nombre = TextBox1.Value 
For i = 2 To 6 
valor = Cells(i, 1).Value 
If valor = nombre Then 
MsgBox ("Valor encontrado") 
End If 
Next i 
MsgBox ("Valor NO encontrado") 
La verdad es util el codigo pero tengo que cargar en memoria todos los datos del rango para despues comparlos, quisiera saber si se puedo buscar coincidencias y cuando la encuentre el codigo se detenga, para no cargar tanto en memoria.
Es la 1a Pregunta que hago en el foro, la verdad no se si este bien estructurada, si no lo esta dime para corregir