Salir De Un Do Loop Si Es Error

[testatry]

Buen dia

Estoy haciendo una macro que busque una oracion en especificio y borre filas hacia abajo o hacia arriba estoy usando el bucle Do loop manejando los errores cuando no encuentre las...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

.

Prueba así:

Sub Borrar()

Dim Celda As Range
'--
Do:   Set Celda = Cells.Find(What:=" Be", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, _
          SearchOrder:=xlByRows...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

:? :? Corrijo:

Sub Borrar()
Dim Celda As Range
'--
Do:   Set Celda = Cells.Find(What:=" Be", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, _
          SearchOrder:=xlByRows...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[testatry]

Gracias por la respuesta Antoni

Ahora otra pregunta es que siempre me gusta llegar al fondo de todo lo que hago

Por que de la forma que lo habia hecho no resulta? El bucle Do Loop no funciona...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí