Automated Hyperlink format?

P

ParkwayBunny

Is there a macro out there that can automatically format a column of file
names into hyperlinks? I have to do about 600 of them and if I have to do
them individually I may scream. There has to be a way!

I hope.

Thank you.
 
J

jetted

You may want to have a look at this

Sub create_hyperlink()
'assuming data is in column A
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 1 To rowcount

Range("A" & i).Select
'addr = ActiveCell.Address

original = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & ActiveCell.Value
'& addr

Next
End Sub
 
P

ParkwayBunny

Thank you!!! It worked like a charm!

You saved me hours of work - I really appreciate it!

You have done your good deed for the day.
 
P

ParkwayBunny

Actually... I have a little problem. When I use the macro to create the
hyperinks, it takes part of the link address from the location of the
spreadsheet. I have the documents to be linked on a CD in my D drive. Is
there a way I can tell the macro not to add in the extraneous information?

Thanks!
 
P

ParkwayBunny

Never mind!! I figured it out! My brain cells have not left me completely.
 
Top