I have a macro that deletes the entire row if it matches certain criteria.
What I need help with is I need to delete rows that DO NOT MATCH specfic
criteria. Instead of "Like" I need a "not like" or similar. I want to delete
the row if it does not contain 591119.

T.I.A.
Ed


Sub DeleteRow2()
Dim LastRow As Long
Dim i As Long
LastRow = Range("A6536").End(xlUp).Row
For i = LastRow To 1 Step -1

If Range("S" & i).Value Like "VIP CHRG" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

For i = LastRow To 1 Step -1
If Range("S" & i).Value Like "EXCHANGE" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

End Sub

untested with yours but try
If not( Range("S" & i).Value Like "VIP CHRG") Then


--
Don Guillett
SalesAid Software

"Ed" wrote in message
...
I have a macro that deletes the entire row if it matches certain criteria.
What I need help with is I need to delete rows that DO NOT MATCH specfic
criteria. Instead of "Like" I need a "not like" or similar. I want to
delete
the row if it does not contain 591119.

T.I.A.
Ed


Sub DeleteRow2()
Dim LastRow As Long
Dim i As Long
LastRow = Range("A6536").End(xlUp).Row
For i = LastRow To 1 Step -1

If Range("S" & i).Value Like "VIP CHRG" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

For i = LastRow To 1 Step -1
If Range("S" & i).Value Like "EXCHANGE" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

End Sub

Add NOT

If Not Range("S" & i).Value Like "VIP CHRG" Then



If Not Range("S" & i).Value Like "EXCHANGE" Then


---
Message posted from http://www.ExcelForum.com/

if instr(1,Range("S" & i).Text,"591119",vbTextCompare) = 0 then
Range("S" & i).entireRow.Delete
End if

--
Regards,
Tom Ogilvy


Ed wrote in message
...
I have a macro that deletes the entire row if it matches certain criteria.
What I need help with is I need to delete rows that DO NOT MATCH specfic
criteria. Instead of "Like" I need a "not like" or similar. I want to
delete
the row if it does not contain 591119.

T.I.A.
Ed


Sub DeleteRow2()
Dim LastRow As Long
Dim i As Long
LastRow = Range("A6536").End(xlUp).Row
For i = LastRow To 1 Step -1

If Range("S" & i).Value Like "VIP CHRG" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

For i = LastRow To 1 Step -1
If Range("S" & i).Value Like "EXCHANGE" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

End Sub