Delete Entire Row if condition meet (VBA)

[Vishaal]

Hi,

we have a code for delete entire row if one condition meet, VBA is

Sub Macro4()
'
Dim LR As Long, i As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
For i = LR To 1 Step -1
    If LCase(Range("Q" & i).Value) = "GS" Then Rows(i).Delete
Next i
End Sub

Now we want to add more words, how can we do that, in the above code we have added "GS" but we have more words, approx 108 words

we required, if any word find in that column, entire row delete

 

[arthurbr]

Check this page https://www.rondebruin.nl/win/winfiles/MoreDeleteCode.txt using Autofilter

 

[Vishaal]

there is any option to add more words in above code, so that we can add multiple word and if they find then remove entire row

 

[MARK858]

See the post below. You will have to change the column reference and with 108 criteria I would consider putting the words in a range and then basing the Array on the range.

VBA Delete Row if (Tidy up required)

Good Morning All, I would like to tidy up my VBA a little bit, and have it on one command vs numerous As an example below I have a separate command for each name I want to search, but I am sure I can tidy this up so it is only on one line :) Thanks, Gary

www.mrexcel.com

 

[Vishaal]

THANKS MARK858 for the solution

 

[Vishaal]

Thanks arthurbr, for your help

 

[MARK858]

You're welcome