Hi Sumac

Try this macro for column A

Sub test()
For Each myCell In Columns("A").Cells.SpecialCells(xlCellTypeConstant s)
If myCell.Value Like "?*@?*.?*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
End If
Next
End Sub


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



"Sumac" wrote in message ...
I import data as a delimited file. One column is e-mail address. We would
like to have it in Excel as mail hyperlink. You seem to be able to do that
by adding one space after each address, but we have hundreds. Can I do that
for all addresses at the same time?