Email Address

[sohaibj]

I am collecting personal information of employees
How can I force a user to enter "@" sign in his email address, if he has not?

 

[pbornemeier]

Edit the column reference to the column that contains the email address.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sInput As String
    'assume column 3 is email address column
    If Not Intersect(Target, Columns(3)) Is Nothing Then
        If Intersect(Target, Columns(3)).Count > 1 Then
            MsgBox "Error: Multiple cells changed."
            GoTo End_Sub
        Else
            sInput = Intersect(Target, Columns(3)).Cells(1).Value
        End If
        If Len(sInput) > 0 Then
            If InStr(sInput, "@") = 0 Then
                MsgBox "You must use an @ in your email address!"
            End If
        End If
    End If
End_Sub:
End Sub