Convert entire columns of text email addresses to hyperlinks
 

How do I convert an entire column of text only email addresses
to hyperlinks pointing to the same email address?

Any help greatly appreciated

Try this one for Column B in the activesheet

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



"TSA" wrote in message ...
How do I convert an entire column of text only email addresses
to hyperlinks pointing to the same email address?

Any help greatly appreciated

Works great!........Thanks!


"Ron de Bruin" wrote in message
...
Try this one for Column B in the activesheet

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



"TSA" wrote in message
...
How do I convert an entire column of text only email addresses
to hyperlinks pointing to the same email address?

Any help greatly appreciated