Hyperlink i række

Hej alle

Jeg har lavet et program bestående af 3 ark.
I ark nr. 1 indsætter jeg et hyperlink.
Når jeg opdater overføres denne til ark nr 2 og igen til ark nr. 3.

Men det er overføres skal ALTID forblive et hyperlink.

I ark nr 1 indsæter jeg naturligvis blot linket som sædvanligt.
I ark nr 2 skal kolonne S (startende fra række 9 og ned ad - resten af arket) være hyperlink.
I ark nr 3 skal kolonne Q (startende fra række 9 og ned ad - resten af arket) være hyperlink.

Jeg har fundet denne VBA kode, men jeg kan ikke få den til at fungere:


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


Nogle der kan overskue hvor jeg laver fejlen eller har andre forslag??