How to activate email hyperlinks

[Dan S.]

I have a huge list of email address that are not active
hyperlinks. I would like to activate them without having
to do it one by one. I've trying several formula's,
macros, adding mailto, etc. but nothing is working. Any
thoughts?

 

[pfsardella]

Search for 'MakeEmailLinks' on David McRitchie's WebPage.

http://www.mvps.org/dmcritchie/excel/buildtoc.htm

HTH
Paul

 

[ebaker]

I tried the 'MakeEmailLinks' method and could not get it to work.
beleive that I'm trying to do the same thing - convert a column o
email addresses into hyperlinked mailto: addresses. How is it done
Thanks!

---Eri

 

[Dave Peterson]

I tried David McRichie's macro:

This was stolen from this page:
http://www.mvps.org/dmcritchie/excel/buildtoc.htm

Option Explicit
Sub MakeEmailLinks()
Dim cell As Range
Dim i As Integer
For Each cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
If InStr(1, cell, "@") > 0 Then
With Worksheets(1)
.Hyperlinks.Add Anchor:=cell, _
Address:="mailto:" & cell.Value, _
ScreenTip:=cell.Value, _
TextToDisplay:=cell.Value
End With
End If
Next cell
End Sub

I put a bunch of email addresses in a test worksheet and tried it and it worked
fine.

David's routine does limit itself to those cells that are constants (not
formulas) and have the "@" symbol in them. And you have to select the range
first.

Any chance that you missed one of those restrictions.