How to change a pasted web link to hyperlink

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

perfection - 29 Mar 2008 21:10 GMT

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

Reply to this Message

Gord Dibben - 29 Mar 2008 22:33 GMT

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

>I have designed a worksheet wherein the cells contains the following
>information
[quoted text clipped - 11 lines]
>Remember i wish to colour only the link not the cell which has other
>info too

Reply to this Message