I didn't take your "text" to mean the word "text". I think you meant any
text not including a numeric entry. The following macro will do what you
want. HTH Otto
Sub DelCText()
Dim rColC As Range
Dim c As Long
Set rColC = Range("C2", Range("C" & Rows.Count).End(xlUp))
For c = rColC(rColC.Count) To 1 Step -1
If rColC(c) < "" And _
Not IsNumeric(rColC(c)) Then _
rColC(c).EntireRow.Delete
Next c
End Sub
"andrei" wrote in message
...
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 .