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!

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!

Try recording a macro
datafilterautofilterfilter on deletedeleteautofiter
or
look in the vba help index for FINDNEXT.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
ups.com...
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!

See also this page
http://www.rondebruin.nl/delete.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


wrote in message ups.com...
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!