Hello Everyone,

Can anyone help me find a solution to the following problem:

I have a spreadsheet with a single column of hundreds of normal text web
addresses (i.e. http://www.microsoft.com).

Is there an easy way (a macro??) that will take each address in each cell
and convert it into an actual hyperlink?

I know I could do it individually, but with the number of addresses we have
it would take forever.

Thanks very, very, much.

-neil

Test this one for column A

Sub test()
For Each myCell In Columns("A").Cells.SpecialCells(xlCellTypeConstant s)
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:=myCell.Value, TextToDisplay:=myCell.Value
Next
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"NeilPSargent" wrote in message ...
Hello Everyone,

Can anyone help me find a solution to the following problem:

I have a spreadsheet with a single column of hundreds of normal text web
addresses (i.e. http://www.microsoft.com).

Is there an easy way (a macro??) that will take each address in each cell
and convert it into an actual hyperlink?

I know I could do it individually, but with the number of addresses we have
it would take forever.

Thanks very, very, much.

-neil

What do you see when you hover your mouse on http://www.microsoft.com

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"NeilPSargent" wrote in message
...
Hello Everyone,

Can anyone help me find a solution to the following problem:

I have a spreadsheet with a single column of hundreds of normal text web
addresses (i.e. http://www.microsoft.com).

Is there an easy way (a macro??) that will take each address in each cell
and convert it into an actual hyperlink?

I know I could do it individually, but with the number of addresses we
have
it would take forever.

Thanks very, very, much.

-neil

Ron, that worked perfectly! Thank you so very much!

"Ron de Bruin" wrote:

Test this one for column A

Sub test()
For Each myCell In Columns("A").Cells.SpecialCells(xlCellTypeConstant s)
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:=myCell.Value, TextToDisplay:=myCell.Value
Next
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"NeilPSargent" wrote in message ...
Hello Everyone,

Can anyone help me find a solution to the following problem:

I have a spreadsheet with a single column of hundreds of normal text web
addresses (i.e. http://www.microsoft.com).

Is there an easy way (a macro??) that will take each address in each cell
and convert it into an actual hyperlink?

I know I could do it individually, but with the number of addresses we have
it would take forever.

Thanks very, very, much.

-neil