VBA delete row with cell contains specific values

This is driving me nuts as I have made a similar script few years ago. However, it's not to be found.

I want to add more values like 1009230, 1009231, etc. . I know it can be done with array but I am missing something.

Current script works with single value.

Best Thoms



Capture.PNG

Formula:

Sub BD_DELETE()



    Dim rng As Range

    Set rng = ActiveSheet.UsedRange

    

    For i = rng.Cells.Count To 1 Step -1

        If rng.Item(i).Value = "1009229" Then

            rng.Item(i).EntireRow.Delete

        End If

    Next i

End Sub

Try this code. The key is to convert the text in the array to a number.

Sub BD_DELETE()
Dim arr
Dim rng As Range
Dim i, x As Long
    
Set rng = ActiveSheet.UsedRange
arr = Array("1009233", "1009236")
    
For x = 0 To UBound(arr)
    
    For i = rng.Cells.Count To 1 Step -1

        If CLng(arr(x)) = rng.Item(i).Value Then
 
            rng.Item(i).EntireRow.Delete

        End If

    Next i

Next x

End Sub

This is perfect! Thanks for the tip and code.