Something like this:

Sub rowkiller()
Dim s As String, n As Long, i As Long
s = "text"
n = Cells(Rows.Count, 3).End(xlUp).Row
For i = n To 1 Step -1
If InStr(Cells(i, 3).Value, s) 0 Then
Rows(i).Delete
End If
Next
End Sub

--
Gary''s Student - gsnu200906


"andrei" wrote:

I have a table with many columns and rows . Tha Macro should search if cells
from C column contain text . If yes , it delets entire row .