turn url's into clickable links

[pvandijck]

I have a column with 1000s of url's in it (like: http://somedomain.com). I want them to be clickable - if I click them the webpage should open up in a browser. Help??????

 

[Andrew Poulsom]

Have a look at the Hyperlink function.

 

[ReportsTeam]

Range("a1").Select

Do Until ActiveCell.Value = ""
iadd = ActiveCell.Value
itext = ActiveCell.Value
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=iadd, TextToDisplay:=itext
ActiveCell.Offset(1, 0).Select
Loop

 

[Russell Hauf]

Try this macro (if you need help on how to enter/run this code, let us know):

Sub MakeHyperlinks()
    Dim cl As Range
    
    For Each cl In Selection
        cl.Hyperlinks.Add Anchor:=cl, Address:=cl.Text
    Next cl
End Sub

Note that you have to select the cells that you want to change to hyperlinks before running this code.

HTH,

Russell
This message was edited by Russell Hauf on 2002-11-18 11:32