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 MS Excel MVP

On Tue, 26 Dec 2006 12:36:01 -0800, Mareadito Siempre
wrote:

I got this database in which many institutions had their URL in a column but
all of them in a text format. In order to make them aHyperlink I have to go
into each cell place the cursor then "enter" converting each cell into a
hyperlink. I was wondering if this could be accomplishe in a more automated
form since I have 5,000 entries.