Sub Delete_Rows()
Dim cell as Range

For Each cell In Range("A1:A65536").Cells
If Cells(cell.Row, 1).Value = 187 Or Cells(cell.Row, 1).Value =
199 Then
Rows(cell.Row).EntireRow.Delete
End if
Next cell

End Sub


Uzytkownik "Matt" napisal w wiadomosci
...
I'd like to create a code that would go through a list of values
(starting in A1 and going down), and for each value, if it equals a
value specified in a list (say numbers 187 or 199), then it deletes
the entire row. I realize the following script is probably more than
it needs to be, can someone help?

Sub Delete_Rows()

For Each Row In Rows("1:65536")
For Each i In MyArray(187, 199)
If Cells(Row, 1).Value = i Then
Rows(Row).Delete
Next i
Next Row

End Sub

Thanks!