VBA Code to remove a cell if certain conditions exist before the @ symbol

[dchunt6180]

Hey guys! This is my first forum post in Mr Excel so hopefully I do this right. I am also new VBA so my apologies if this is an easy answer.

I am trying to write a macro that deletes a row/cell if there are less than 3 characters before the "@" symbol or if the same letter is used repeatedly before the "@" symbol in a cell.

I have already written a basic macro that fixes errors to domain name misspellings like "gamil.com" and "yaho.com". I am trying to get it to the next level by deleting cells that contain clearly fake email addresses like rrr@gmail.com or no@gmail.com

Any pointers or ideas would be awesome!