help creating new hyperlinks programmatically
 

I'm using a macro to create new hyperlinks from URLs extracted from cells in
another column (see macro below).

Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next


The new hyperlinks are only text fields, however, since the address being
copied from each existing hyperlink cell is saved as the value of the
corresponding new cell. How do I copy the address of each existing cell to
the address of the new cell to create a real, clickable hyperlink?

Thx,

J

help creating new hyperlinks programmatically
 

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