A Simple Email Validation Question

Sorry about that.

Originally Posted by Leith Ross

Hello cfaust,

Welcome to the Forum!

This macro will highlight any invalid email addresses in column "A" start with cell "A2". I am assuming you have a header in in "A1".

Sub ValidEmail()

  Dim Cel As Range
  Dim Rng As Range
  Dim RngEnd As Range

    Set Rng = Range("A2")
    Set RngEnd = Cells(Rows.Count, Rng.Column).End(xlUp)
    If RngEnd.Row < Rng.Row Then Exit Sub Else Set Rng = Range(Rng, RngEnd)

    For Each Cel In Rng

      If Not (Cel Like Like "[!.]*?[!.]@[!-]?*?.?*[!-]") Then
         Cel.Interior.ColorIndex = 6
      End If
 
    Next Cel

End Sub

Thanks a lot for the help and the above code you are right about having a header so starting at A2 is perfect.

When I run the macro I get a syntax error on the line.

If Not (Cel Like Like "[!.]*?[!.]@[!-]?*?.?*[!-]") Then

I am trying to figure out why but I thought I would post it while I attempt to debug.

That was it thanks a lot for your help it works perfectly.