Delete rows that do not contain an email address

Have a sheet with colunms First, Last, Address, City, State, Zip, Email. Some cells in the Email column contain a random value i.e. Z9A1BNSZ.

Looking for a Macro that will delete all rows (records) that do not contain proper email addresses i.e. [email protected].

Any help would be appreciated.

Thanks.

Davbuf

Thanks aelgadi. I'm getting this error:

Run-time error '91':
Object variable or With block variable not set

Assuming the data you wish to delete is in column A

Please Login or Register  to view this content.

Ok aelgadi. The email addressess are in Column G. I made the adjustment however the result was that the email addresses in column G simply lost all characters after the @. For example [email protected] turns into email1. Random values still remain (BPX2BFFU).

That worked AB33. Thanks! Thank you as well aelgadi.

You are welcome!