Delete Cells Within Column of Active Worksheet Based on Lookup List of External Workbook

[Breader11]

I'm trying to find some VB code to help me delete cells within a specified column of my active workbook by referencing a list in another workbook. Specifically, I want to delete all cells in my current worksheet that contain traditional personal email URLs such as "@gmail.com", "@comcast.net" "@hotmail.com" etc. and delete them. I'd like to utilize a one-column worksheet in a separate workbook (that I'll continue to update and expand) with these personal email URLs.

Any help would be greatly appreciated.