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