how to delete row when multiple criteria is selected - excel

Question

Hi i have below code which delete the rows when it finds particular single criteria from multiple sheets i want to modify the code with multiple criteria
Sub DeleteRow_IMPLEMENTATION()
Dim Header As Range
Dim FoundCell As Range
Dim ws As Worksheet
Dim HeaderToFind As String
Dim ValueToFind As String
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
HeaderToFind = "BankName"
ValueToFind = "abcd"
For Each ws In Worksheets
Set Header = ws.Rows(1).Find(what:=HeaderToFind, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not Header Is Nothing Then
Set FoundCell = ws.Columns(Header.Column).Find(what:=ValueToFind, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
Do While Not FoundCell Is Nothing
ws.Rows(FoundCell.Row).delete
Set FoundCell = Nothing
Set FoundCell = ws.Columns(Header.Column).Find(what:=ValueToFind, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
Loop
End If
Next ws
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
End Sub
i tried something like below
HeaderToFind = "BankName"
ValueToFind = "abcd,xyz "
when i tried its not working any help is appreciated.

Answer 1

Try setting the value you are trying to find in an array instead of a comma seperated string. then foreach value in the array: set ValueToFind equal to the value, and call this code
HeaderToFind = "BankName"
Dim targetValues = New String { "abcd", "xyz" }
For Each targetVal In targetValues
ValueToFind = targetVal
For Each ws In Worksheets
....
Next ws
Next targetVal
Alternatively, you can check out this:
Efficient way to delete entire row if cell doesn't contain '#'
and set the criteria to your array of values