Email addresses
 

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

and use for example the code
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


or see:
http://www.mvps.org/dmcritchie/excel...erlinkFormulas


--
Regards
Frank Kabel
Frankfurt, Germany


Prometheus wrote:
If a worksheet cell contains text something like this:
" and I hit F2 (edit) and then (enter), the cell
converts to a hyperlink "mailto:jsmith...".

How can I get a macro to do the same task, for a range of cells?