Sans exemple et avec ce que j'ai compris, cette macro modifiera les 'Display Names' de tous les liens hypertextes du classeur.
Code:
Sub ModifierDisplayNames()
Dim hLink As Hyperlink
Dim sh As Worksheet
For Each sh In Worksheets()
For Each hLink In sh.Hyperlinks
hLink.TextToDisplay = hLink.Address
Next hLink
Next sh
End Sub