Delete rows that contain text that correspond to a list of names

[NMB311]

I would like to create a macro that will delete rows in my worksheet if they contain certain names. I have a list of about 10 names in another worksheet ("leader names") that sometimes changes. Is there a way to have excel reference that list and delete rows in another worksheet ("data") if they contain any of those names in the list?

 

[excelgirl94110]

Sub DeleteRowsWithLeaderNames()

Dim rngLeaderNames As Range
Dim rngData As Range
Dim i As Range, j As Range


Set rngLeaderNames = ThisWorkbook.Worksheets("leader names").Range("leader_names")
Set rngData = ThisWorkbook.Worksheets("data").Range("data")


For Each i In rngLeaderNames
    For Each j In rngData
        If j.Value = i.Value Then
        j.EntireRow.Delete
        End If
    Next j
Next i

End Sub

 

[NMB311]

Thank you for the quick response! I guess I needed to be more specific. The data all exists in column A in the Data sheet. And the values in each cell in the range don't contain the leader names exclusively. There is a lot of data in each cell in addition to the names. So it seems like the "if value = value, then delete" logic won't work. And sure enough I tried it and it didn't. Thanks again though for the help