e-mails addresses

[Guest]

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.

 

[Ron de Bruin]

You can use this macro for column B

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