Activating hyperlink

J

jspizman

Hello,

I have a column that is full of only hyperlinks. When I copy and paste
them from my web broswer, they are entered as text. I would like to
make them into active hyperlinks. I noticed if I click the cell to
edit and then click off it will change however I have around 30,000
rows to deal with so was wondering if there is a faster way.

Any help would be greatly appreciated.

Thanks,
Josh Spizman
 
D

Die_Another_Day

Sub CreateHyperlinks
Dim cnt as long
Dim MaxRow as double
MaxRow = 'Your max row here
For cnt = 1 to MaxRow
Cells(cnt,"A").Hyperlinks.Add
Anchor:=Cells(cnt,"A"),Address:=Cells(cnt,"A").Value
Next
End Sub

Paste the preceding code into a new module in VBA and run it with your
problem workbook active.

HTH

Die_Another_Day
 
Top