Sorry, but I am probably being dense.

If I understand you correctly, if you have a hyperlink in A2 you want
to create a hyperlink in A3 which, when clicked will take you to A2 ?

Sub Test()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
ActiveSheet.Hyperlinks.Add HL.Range.Offset(0, 1), "", _
HL.Range.Address
Next
End Sub

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup