Ayuda que el inputbox cuando cancele o numero erroneo se me cierre

[jeaa]

Buenas tardes, expertos para decirlo que recurro a su ayuda tengo una aplicacion en una hoja cuando pulso el boton buscar me muestra la ventana de inputbox para ingresar el codigo y buscar, pero que pasa cuando lo cancelo y/o pongo un codigo erroneo o que no exista no sale va buscando en toda la hoja y se repite muchas veces y no hay cuando terminar. Por favor si me pueden apoyar en que estoy fallando.

Adjunto el archivo.

Grupo 5_Holiday Inn Lima Airport Room Division Management (1).xlsm

[dogwall]

Si no hay coincidencia va a recorrer el for y va a terminar sin mostrar nada. Para que al cancelar no entre al for puedes poner un If que compruebe si x contiene un valor/texto o no y salir del procedimiento en ese caso:

x = InputBox("Introducir dato a buscar", "Buscar datos")

If x = "" Then Exit Sub

 

[jeaa]

dogwall, buenos dias mira me funncion perfecto muchas gracias  una gran ayuda no sabes cuanto lo agradesco.