Macro to removed entire row on Sheet A if a text matches a condition on Sheet B

I have a huge database list of customers

Have you tried using auto filter?

Alf

@ [email protected]

Welcome to the forum.

Please notice that [CODE] tags have been added to your post(s). The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at the top of the page and read Rule #3.
Thanks.

Sorry about that Cutter will remember from now on! Thanks for your replies guys. Alf yeah i have used auto filter but i needed something to remove it entirely not just hide it with a filter.

HaHobe thank you very much for your code it worked really nicely but yeah it was super slow and the data base is pretty big. no idea where i found it now but i played around a little and endedup with this code and it works!! will post it incase anyone else in the future may need it!


Sub MassUnsubscribe()
Dim EndRw As Long
On Error Resume Next
EndRw = Worksheets("Customer List").Range("E65536").End(xlUp).Row
For RowTester = EndRw To 1 Step -1

If Application.WorksheetFunction.Match(Worksheets("Customer List").Range("E" & RowTester).Value, Worksheets("Unsubscribe Tab").Range("E:E"), 0) > 0 Then
If Err.Number > 0 Then
Err.Clear
GoTo NextRow
Else
Worksheets("Customer List").Rows(RowTester).Delete
End If
End If
NextRow:

Next RowTester
End Sub


Thanks again guys!

@ [email protected]

Alf yeah i have used auto filter but i needed something to remove it entirely not just hide it with a filter.

Filter to get the rows you don't need then you delete these.

Alf