turn url's into clickable links

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• Nov 18, 2002

• #2

Have a look at the Hyperlink function.

 

Upvote 0

R

ReportsTeam

New Member

Joined

Jul 28, 2002

Messages

31

• Nov 18, 2002

• #3

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

 

Upvote 0

Russell Hauf

MrExcel MVP

Joined

Feb 10, 2002

Messages

1,611

• Nov 18, 2002

• #4

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

Code:

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

 

Upvote 0