Validate email address in the correct format

I have been trying to find an easier way to make sure that the email address that I have been given in a excel workbook are in the proper format before I try to use them. I have tried doing a google search on this subject but have not found the correct solution.

I want to enter a function in column L that would use a regular expression for the email format and compare it to the email address in column J. If the results are true place a value of 1 in column K. If false place a value of 0 in column K

This is suppose to be a valid regular expression for the email format. I found this when doing the google search.

Please Login or Register  to view this content.

This suppose to be a valid regular expression for the email format in Visual Basic 2008.

Please Login or Register  to view this content.

Thanks,
PhotoJoe

On your sheet, insert this simple UDF:

Press Alt-F11 to open the VBEditor
Click on Insert > Module
Paste in this code:

Please Login or Register  to view this content.

Press Alt-F11 to close the editor
Save the sheet.

Now, to test the validity of the email in a cell, use the simple formula:

=IsEmailAddress(J1)