Never mind!! I figured it out! My brain cells have not left me completely.
--
Have something you don''''t need? Check out Freecycle at www.freecycle.org


"jetted" wrote:


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


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=559427