If a cell contains a certain value, I want to delete the row it is in, e.g.,
if cell K2 has value 0 then delete row 2

Public Sub ProcessData()
Const TEST_COLUMN As String = "K" '<=== change to suit
Dim i As Long
Dim iLastRow As Long

With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow to 1 Step -1
If .cells(i, TEST_COLUMN).Value = 0 Then
.Rows(i).Delete
End If
Next i
End With

End Sub

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"GKW in GA" <(E-Mail Removed)> wrote in message
news:164013D2-A179-4C33-A2EF-(E-Mail Removed)...
> If a cell contains a certain value, I want to delete the row it is in,
> e.g.,
> if cell K2 has value 0 then delete row 2