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