E-Mail-Adressen grob validieren

Sub EmailAdressenPruefen()
    Dim re As Object, c As Range, letzte As Long
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "^[^\s@]+@[^\s@]+\.[^\s@]+$"
    re.IgnoreCase = True
    letzte = Cells(Rows.Count, "A").End(xlUp).Row
    For Each c In Range("A2:A" & letzte)
        If Trim(c.Value) <> "" Then
            c.Interior.ColorIndex = IIf(re.Test(CStr(c.Value)), xlColorIndexNone, 22)
        End If
    Next c
End Sub