удалить строки содержащие определенные ячейки

[123456789igor]

Необходимо удалить строки содержащие определенные ячейки, допустим ячейку со словом "ололо"
Вот код(ищу с 6ой до конца)

z_:=Excel.WorkBooks[1].WorkSheets['Ñóì âûáðîñû'].UsedRange.Rows.Count;
 for a_:=6 to z_ do
      begin
      if VarToStr(Excel.cells[a_,1]) = 'ололо' then
      begin
      Excel.ActiveSheet.Rows[a_].Select;
      Excel.Selection.Delete;
      end
      else
      break;
      end;

компилется но ничего не происходит. Думаю с условием проблемы. Смотрел макрос
Sub Del_Itogo()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = iLastRow To 2 step -1
If Cells(i, 2) Like "*" & "ололо" & "*" Then Rows(i).Delete
Next
End Sub