This code will work assuming you have continuous data in column A

Sub Delete_Row()

Dim x
x = 1

Do While Cells(x, 1).Value < ""

If Cells(x, 2).Value = "delete" Or Cells(x, 2).Value = "Delete" Then
Rows(x).delete
Else
x = x + 1
End If

Loop

End Sub

"Todd" wrote:

Hi,

I am trying to delete entire rows based on a condition. My condition is
simple, I put the word "delete" in column b of the worksheet. If it has
"delete" then wa lah! Its supposed to be gone. Except I can't figure out
how to get it done. I've tried a different criteria with putting in a number
instead but I am useless here. Please help?

Todd

Sub deleteif()
On Error Resume Next
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If UCase(Cells(i, "c")) = "delete" Then
EntireRow.Delete
End If
Next i
End Sub