Próbáld ki ezt a makrót a kérdéses munkalapról indítva.

Azért előtte csinálj biztonsági másolatot.

Sub hip()
    Dim h As Hyperlink, ws As Worksheet
    Set ws = ActiveSheet
    For Each h In ws.Hyperlinks
        h.TextToDisplay = h.Address
    Next
End Sub