Urgent Help Needed! - Deleting rows by multiple conditions

Hi,

I am writing a code to delete rows from a sheet by matching array values with cells in a column. My code is not generating any error, but, it is also not deleting rows as well. Clearly, there is fundamentally wrong with my logic. PLEASE HELP!!!!

Sub delRow()

Dim myRange As Range

Dim all As Range

Dim b As Boolean

Dim delArray As Variant

Dim i As Integer

delArray = Array("Niel", "Barry")


For i = LBound(delArray) To UBound(delArray)

If Range("oRange").Cells(17).Value = delArray(i) Then

If b Then
myRange = Range("oRange").CurrentRegion.Rows
Set all = Application.Union(myRange, all)
Else
Set all = myRange
b = True
End If

End If

Next i

If Not all Is Nothing Then all.EntireRow.Delete

End Sub

Hi nathansav,

Attaching sample workbook for you.

Originally Posted by nathansav

can you attach a sample workbook?

lancer102rus, tried using your code... but still, it doesn't work. You may check out the file that I recently uploaded above....

Will be grateful if you could have a look at the code...

Originally Posted by lancer102rus

I think you need this

Please Login or Register  to view this content.

why do you check cell #17? if your conditions in column #1
just change "17" to "1" in my code

Try the attached.

Hi,

Please find the attachment.......

FOR LOOP's i have renamed sheets names.