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 palabras con GoTo, la macro funciona bien al ejecutarla pero cuando termina siempre termina dandome un error en la parte de enmedio que marco con negritas ya intente de muchas maneras cambiando el orden de busqueda y sigue apareciendo el mismo error me podrian decir que estoy haciendo mal. tambien eh manejado en el ultimo Do poner On Error Resume Next y lo unico que hace es crearme un bucle infinito y empieza a borrar todos los datos de la macro por que obviamente la siguiente linea que ejecuta es la de seleccionar rango.

De antemano saludos

Sub Macro7()

On Error GoTo NextSearch

Do

Cells.Find(What:= _

" Be" _

, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:= _

xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False). _

Activate

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(3, 0)).Select

Selection.ClearContents

Loop

NextSearch:

On Error GoTo Final

Do

Cells.Find(What:="SHEET", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False).Activate

Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(-9, 0)).Select

Selection.ClearContents

Loop

Final:

Do

Cells.Find(What:="Cash Total:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False).Activate

Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(-2, 0)).Select

Selection.ClearContents

Loop

Exit Sub

End Sub

[Antoni]

Sube el archivo y le echaremos una mirada.

[testatry]

El archivo contiene solo esta macro que puse arriba y los datos que limpia es esto:

******

******

******

******

******

******

******

******

******

Sheet email.

Be (1615030)

-------------------------------------------------------

-------------------------------------------------------

Amount Invoice:

1500, 1600, 1700, 1800

Name

Dicson Peter

Sally Bree

Dave Dare

**********

Cash Total:$6600

***********

[Antoni]

Respuesta en Foro Excel • Ver Tema - Salir De Un Do Loop Si Es Error