Delete entire row if specific text found within cell from range in another tab

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Option Explicit

Sub Mikey()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Before Pricing")
    Set s2 = Sheets("FUNDS TO BE REMOVED")
    Dim i As Long, j As Long
    Dim lr As Long, lr2 As Long
    Application.ScreenUpdating = False
    lr = s1.Range("A" & Rows.Count).End(xlUp).Row
    lr2 = s2.Range("A" & Rows.Count).End(xlUp).Row
    For i = lr To 1 Step -1
        For j = 1 To lr2
            If InStr(s1.Range("H" & i), s2.Range("A" & j)) > 0 Then
                s1.Range("H" & i).EntireRow.Delete
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
    MsgBox "Complete"

End Sub

You're welcome. Thanks for the rep.

Looks like the other guys did the work but thanks anyway.


If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.