Конечный поиск

[Munchkin]

Есть таблица. В ней есть строки с "--------------------", и их надо удалить. Я использую следующий код:

Do While Cells.Find(What:="--------------------", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate = True
        Selection.EntireRow.Delete
Loop

Но после того, как удаляется последняя строка, прога при проверке из цикла не выходит, а выдается ошибку. Что я делаю не так?

[Hugo121]

Sub tt()
Dim x As Range
Do
Set x = Cells.Find(What:="--------------------", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False)
     If Not x Is Nothing Then x.EntireRow.Delete
Loop While Not x Is Nothing

End Sub

SearchFormat:=False я убрал, т.к. на 2000 у меня не идёт, добавьте у себя.
И кстати с таким способом, если подпадающие под критерий строки рядом, то вторая строка удаляется только при следующем проходе, а не следом за предыдущей.

И кстати2 - если тире в одном столбце и в ячейке только тире, то быстрее так:

Sub Main()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = [A:A].Find("--------------------", , , xlWhole)
    If Not x Is Nothing Then
        [A:A].ColumnDifferences(x).EntireRow.Hidden = True
        ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        Rows.Hidden = False
    End If
End Sub

[Munchkin]

Спасибо, первый способ работает на ура.
Второй не стал пробовать, ибо скорость не критична.