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