Delete rows if specific data appears in cell, if not in cell ignore and continue

[DK340]

I am using the below code to search a column for a specific number, in this case 2603, and if 2603 is present it deletes the entire row.


Dim rng As Range, cell As Range, del As Range
Range("V:V").Select
Set rng = Intersect(Range("V:V"), ActiveSheet.UsedRange)
For Each cell In rng
If UCase(cell.Value) = "2603" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next
del.EntireRow.Delete

The problem that I have is this: If the data in Range("V:V") does not have any 2603's in it, the macro fails since it did not find any 2603's. I need to know if there is something that I can add to the macro to allow the code to continue on if no 2603's exist in the data. Thanks!

 

[Phox]

Change the last line to:

If Not del Is Nothing Then del.EntireRow.Delete

 

[DK340]

Thank you very much. That fixed the problem.