Dim i as long
Dim lastRow as long
lastrow = Cells(rows.count,"F").End(xlup).row
for i = lastrow to 1 step - 1
if lcase(cells(i,"F").Value) = "delete" then
cells(i,"F").EntireRow.Delete
end if
Next

--
Regards,
Tom Ogilvy

"Jeff" wrote in message
om...
Good day all,

I am merging lots of data together from other sheets and i need to
clean it up. i have written a formula so when there is no data that
matches the defined parameters, "delete" is inserted. now i want to
delete the rows that contain "delete" in col "F". how do i do this?

Your help in this matter would be greatly appreciated,

Regards
Jeff Priest