You can use this macro for column B

Sub test()
For Each myCell In Columns("B").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/tips.htm


"thd3" wrote in message ...
After pasting a text file - I want to make an entire column of e-mail
addresses live. I seem to recall having to use a third-party macro in an
earlier release - I have office 2007/vista.