Sub test()
Const cColumn = 2, cSearch = "f"
Dim i As Long, lngLastRow As Long

With ActiveSheet
lngLastRow = .Cells(Rows.Count, cColumn).End(xlUp).Row

For i = lngLastRow To 1 Step -1
If InStr(1, .Cells(i, cColumn).Value, cSearch) 0 Then
.Rows(i).Delete xlShiftUp
End If
Next
End With
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"ksnapp " wrote in message
...
what I need is a sub that will read all the cells in a specified column
and delete rows if the word "Old" in the cell anywhere.
such as big old car?

Is that possible. I have a nice sub that deletes rows according to
contents, but I don't know how to make it look between words


---
Message posted from http://www.ExcelForum.com/