Convert entire columns of text email addresses to hyperlinks

T

TSA

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

Any help greatly appreciated
 
R

Ron de Bruin

Try this one for Column B in the activesheet

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
 
T

TSA

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


Ron de Bruin said:
Try this one for Column B in the activesheet

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
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

convert column of text email addresses to hyperlinks all at once 1
Hyperlinks and Email Addresses in Excel 2
Open specific hyperlink (accept) automatically in email with outlook 0
convert text to hyperlink 2
Reformattng EMAIL addresses incolumn 1
How to convert Email into Mailto Email Addresses 2
hyperlinking email addresses 1
Adding row to sheet; having hyperlinks follow 2

Top