Sub Demo() Dim hLnk As Hyperlink For Each hLnk In ActiveSheet.Hyperlinks hLnk.TextToDisplay = hLnk.Address Next End Sub