Sub zero()
Set r = ActiveSheet.UsedRange
nLastRow = r.Rows.Count + r.Row - 1
For i = nLastRow To 1 Step -1
For j = 1 To Columns.Count
v = Cells(i, j).Value
If InStr(1, v, "delete") 0 Then
Cells(i, j).EntireRow.Delete
Exit For
End If
Next
Next
End Sub

--
Gary''s Student - gsnu200742


" wrote:

I would like to use a macro to delete any row that has the word
"delete" in one of its cells. What would this code be? Thanks!