Hi Sandee

Do you want this?

You can check for the @ and the . character in each mail address

Sub test()
' J.E suggestion "?*@?*.?*" instead of *@*
For Each mycell In Columns("B").Cells.SpecialCells(xlCellTypeConstant s)
If mycell.Value Like "?*@?*.?*" Then
'do nothing
Else
MsgBox "Wrong E-mail address in " & mycell.Address
End If
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Sandee" wrote in message ...
I have names and email addresses in excel worksheet...is there a way to
validate these addresses