Message Boxes If the cells are Colored

Hello Ladies and Gentlemen,

I need your help please!

I wrote a macro that does the following:
a. Column A has emails, I used an IF statement to color the cell orange whenever an email is entered incorrectly.
b. Conditional formatting on Column A to color the cells with duplicate emails in purple.
c. Conditional formatting that colors all cells with #NA and #REF in red within columns D to M.

What I need is the following:
1. An error message box pops up that says "Duplicate Emails!" if any of the cells in column A are purple only (where duplicate condition in "b" is met). No message if they are orange.
2 A Message box that says "No Errors Found! " if there are non of the three colors within columns A to M (other colors may be present and should not affect this message box).

Things that might help:
- Since this is a to be used for a template the last row will always vary and my script for that is: LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
- Purple used in conditional format (column A):

Please Login or Register  to view this content.

Thanks!