Importing e-mail addresses not showing as hyperlinks

[gls858]

I imported several hundred email addresses into a spreadsheet
from an external source. How do I get them to show up as hyperlinks.

gls858

 

[Gord Dibben]

Sub MakeHyperlinks()
'David McRitchie code
Dim cell As Range
For Each cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
With Worksheets(1)
.Hyperlinks.Add anchor:=cell, _
Address:=cell.Value, _
ScreenTip:=cell.Value, _
TextToDisplay:=cell.Value
End With
Next cell
End Sub


Gord Dibben MS Excel MVP

 

[gls858]

Sub MakeHyperlinks()
'David McRitchie code
Dim cell As Range
For Each cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
With Worksheets(1)
.Hyperlinks.Add anchor:=cell, _
Address:=cell.Value, _
ScreenTip:=cell.Value, _
TextToDisplay:=cell.Value
End With
Next cell
End Sub


Gord Dibben MS Excel MVP

Thanks Gord. I'll post back the results later.

gls858

 

[gls858]

Sub MakeHyperlinks()
'David McRitchie code
Dim cell As Range
For Each cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
With Worksheets(1)
.Hyperlinks.Add anchor:=cell, _
Address:=cell.Value, _
ScreenTip:=cell.Value, _
TextToDisplay:=cell.Value
End With
Next cell
End Sub


Gord Dibben MS Excel MVP

Gord,
Just wanted to post back and let you know that worked. i really
appreciate your help and David McRitchie's too

gls858

 

[Gord Dibben]

David and I appreciate the feedback.

Gord

Gord,
Just wanted to post back and let you know that worked. i really
appreciate your help and David McRitchie's too

gls858