Importing e-mail addresses not showing as hyperlinks

  • Thread starter Thread starter gls858
  • Start date Start date
G

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

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

gls858
 
Gord said:
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
Click to expand...

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

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