Array

[billandrew]

Can I place specific value into an array and then use the array with a loop to delete row if value in array is in cell.

i.e. Place West, North, South in Array then use the following code.

dim arr as Variant
For i = lastRow To 2 Step -1    If Ws.Cells(i, "H").Value = arr Then
    Ws.Cells(i, "H").EntireRow.Delete
    End If
    Next

 

[Domenic]

Try...

    For i = lastRow To 2 Step -1
        If Not IsError(Application.Match(ws.Cells(i, "H").Value, arr, 0)) Then
            ws.Cells(i, "H").EntireRow.Delete
        End If
    Next

Note, though, filtering the data for those values and then deleting those rows should be more efficient.

Hope this helps!

 

[billandrew]

It sure does. Thank you sir.