Delete row function

[ehcpieterse]

Hi there,

I am looking for a way to write a sub that will always look for a value in a range and then delete all the rows that does contain all the values.

Example: Delete all rows where column N has value "New".

Thanks

 

[VoG]

Try

Sub DelNew()
Dim LR As Long, i As Long
LR = Range("N" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("N" & i).Value = "New" Then Rows(i).Delete
Next i
End Sub