Transforming a col of text strings to hyperlinks

[Kreller]

I have a column with various internet hyperlinks. However for som
reason they are stored in the column as ordinary text strings. Is ther
a way of transforming all the strings to hyperlinks

 

[Gord Dibben]

Kreller

Manually..........select the column of strings then in active cell hit F2 and
ENTER.

Just keep F2'ing and ENTER'ing until you reach the bottom.

VBA code from David McRitchie.......

Sub MakeHyperlinks()
'David McRitchie
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 Excel MVP