quindi non devi lavorare sul contenuto del link?!?!?
secondo me ti conviene a sto punto far un copia/incolla, inutile che perdi tempo dietro a funzioni avanzate...

in ogni caso prova questa

codice:
Sub EsportaLink()
    For Each cella In Selection.Cells
        iperlink = ""
        With Sheets("foglio2").Cells(cella.Row, 1)
        If cella.Hyperlinks.Count <> 0 Then
            iperlink = cella.Hyperlinks(1).Address
            .Hyperlinks.Add Anchor:=Sheets("foglio2").Cells(cella.Row, 1), Address:=iperlink, TextToDisplay:=cella.Value
        Else
            .Value = cella.Value
            .Hyperlinks.Delete
        End If
        End With
    Next
End Sub
ciao
L.