Удаление строки с условиями

[siv14]

Добрый день!
Помогите решить мою проблему. Поискал на форуме, но не нашел ответа. Возможно удалить строку, если в ячейке будет значение (#ЗНАЧ!). Я ипользовал макрос с другого форума, но если я вместо текста вставляю это значение, то строки не удаляются.

text = "#ЗНАЧ!"
For Each ra In ActiveSheet.UsedRange.Rows
If Not ra.Find(text, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
If Not delra Is Nothing Then delra.EntireRow.Delete

[kuklp]

Скорей всего можно проще и быстрей, при помощи specialcells. Но нужно видеть пример.

[IgorGO]

может так:

Sub DelErrorRows()
  ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
End Sub

[siv14]

Сообщение от IgorGO

может так:

Спасибо IgorGO, то что надо.Отработала без ошибок.