VBA Delete Row if (Tidy up required)

[garypea123]

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

 

[maabadi]

Change first if Line to

If Cells(i, 2) Like "*Gary*" OR Cells(i, 2) Like "John*" OR Cells(i, 2) Like "Maggie*" OR Cells(i, 2) Like "Phil*" Then

 

[MARK858]

Try

Sub DelColB()
    Dim myVar As Variant, DeleteMe As Variant
    Application.ScreenUpdating = False

    DeleteMe = Array("Gary", "John", "Maggie", "Phil")
  
    For Each myVar In DeleteMe
        Range("B6:B" & Range("B" & Rows.count).End(xlUp).Row).Replace "*" & myVar & "*", "#N/A", xlWhole, , False, False, False
    Next
  
    On Error Resume Next
    Columns("B").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
    On Error GoTo 0

    Application.ScreenUpdating = True
End Sub

Edit: added the screenupdating as there are 4 replacements

 

[garypea123]

Perfect, both are different, and both work absolutely great.

Thanks Guys