Tom’s Tutorials For Excel: Making Your Hyperlinks User-Friendly
When you put hyperlinks in cells on a worksheet, it’s a good practice to present them in a user-friendly, intuitive way. For example, the pictures show an original list of hyperlinked cells with their Microsoft-induced wordy screen tips. The modified list was created by the below macro to show those same cells more intuitively, with displayed text and screen tips that are concise and easy to read.
Sub EditLinks()
Dim myHype As Hyperlink
Dim iLink As Integer, strText As String
iLink = 1
For Each myHype In Columns(1).Hyperlinks
strText = myHype.Parent.Text
myHype.TextToDisplay = "Link #" & iLink
myHype.ScreenTip = strText
iLink = iLink + 1
Next myHype
End Sub
Leave a Reply