Удаление строк по определенному критерию

[Franck]

Такая в общем проблема. Есть таблица, очень большая, два листа, на одном большой список инвентарных номеров по строкам, на другом список инвентарных номеров, которые нужно удалить из большого списка.
Я нашел тут один один макрос, чуть переделал его под себя:

Sub DelTel()
Dim iLastRow As Long, i As Long
Dim c As Range
Dim iTel As String
    iLastRow = Sheets("Лист1").Cells(65536, 1).End(xlUp).Row
    For i = 2 To iLastRow
        iTel = Sheets("Лист1").Cells(i, 1)
        Set c = Sheets("Лист2").Columns(2).Find(what:=iTel, lookat:=xlPart)
        If Not c Is Nothing Then c.EntireRow.Delete
    Next i
    MsgBox "Done!", vbInformation, ""
End Sub

Проблема в том, что он, если нужно удалить значение 450 к примеру, то он удалит и значение 3450, а вот его как раз не нужно.
Нужно чтобы он находил ячейки, которые были равны значению 450, а не содержали его и удалял. Помогите плиз, мне кажется, тут немного нужно поменять.
ЗЫ Что-то я совсем затупил под вечер.
Естественно, нужно было всего лишь исправить xlPart на xlWhole. Опозорился первым же постом.

[viter.alex]

Не ошибается тот, кто ничего не делает. Я тоже, бывает, сяду тему на форум писать, и пока формулирую вопрос, нахожу ответ над которым битый час думал.

[Рома_Чайник]

А что нужно поменять если надо удалить строки где есть "-" мінус

[viter.alex]

Вместо

iTel = Sheets("Лист1").Cells(i, 1)

Напиши

iTel = "-"

[Рома_Чайник]

Спасибо