converting text into hyperlinks
 

I have a list of 3000 URLs,
Each line contains URL in a text format.
I need to convert all the lines in one column - into hyperlinks.

How do I do it in Excel 2002?
Thanks!


--
barakooda
------------------------------------------------------------------------
barakooda's Profile: http://www.excelforum.com/member.php...o&userid=34897
View this thread: http://www.excelforum.com/showthread...hreadid=546359

converting text into hyperlinks
 

Hello Barakooda,

Add a standard VBA module to your project and copy and paste the
following code into it.


Code:
--------------------

Public Sub MakeHyperlinks(Optional Link_List As Range)

Dim Hlink As Range
Dim Wks As Worksheet

If Link_List Is Nothing Then
Set Link_List = Selection
End If

Set Wks = Worksheets(Link_List.Parent.Name)

For Each Hlink In Link_List
ActiveSheet.Hyperlinks.Add Anchor:=Wks.Range(Hlink.Address), Address:=Hlink.Value
Next Hlink

End Sub


--------------------


How to call the Macro:
Say your the range you want to convert into hyperlinks is A2 to A3002.


MakeHyperlinks Range("A2:A3002")

Or you can select the cells you want to convert to hyperlinks and run
the macro from the Macro List. To display the Macro List, press ALT +
F8.

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=546359

converting text into hyperlinks
 

Leith Ross Wrote:
Hello Barakooda,

Add a standard VBA module to your project and copy and paste the
following code into it.


Code:
--------------------

Public Sub MakeHyperlinks(Optional Link_List As Range)

Dim Hlink As Range
Dim Wks As Worksheet

If Link_List Is Nothing Then
Set Link_List = Selection
End If

Set Wks = Worksheets(Link_List.Parent.Name)

For Each Hlink In Link_List
ActiveSheet.Hyperlinks.Add Anchor:=Wks.Range(Hlink.Address), Address:=Hlink.Value
Next Hlink

End Sub


--------------------


How to call the Macro:
Say your the range you want to convert into hyperlinks is A2 to
A3002.

MakeHyperlinks Range("A2:A3002")

Or you can select the cells you want to convert to hyperlinks and run
the macro from the Macro List. To display the Macro List, press ALT +
F8.

Sincerely,
Leith Ross

Dear Leith Ross,
Thanks for answering, and thanks a lot for elaborting!!
Cheers!!


--
barakooda
------------------------------------------------------------------------
barakooda's Profile: http://www.excelforum.com/member.php...o&userid=34897
View this thread: http://www.excelforum.com/showthread...hreadid=546359