How to change a pasted web link to hyperlink

[perfection]

I have designed a worksheet wherein the cells contains the following
information

The webpage address link
A summary of the page to which the link points

Now i wish to hyperlink the webpage adresses which are currently not
in hyperlink blue probably becuase i cut - pasted them from the
webpage

How can i do this in bulk or is there some free available addin that
does this as i have in excess of 500 links stored this manner

Remember i wish to colour only the link not the cell which has other
info too

 

[Gord Dibben]

Try this macro after selecting all 500+ cells.

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