Hyperlinks - Text to display

Hi,

I have quite of few of cells in a column it only includes a hyperlink in the cells. The links are quite long, so the cells expands. The easy and slow, slow way to change the Text to display is by right clicking on the mouse and changing it manually each cell with a link.

My question, is there a way to change the text to display with a function or something similar?


Thanks
Elegidos (Spain)

What is to determine the Text to Display content of each link ?

So does something like the below work for you ?

Public Sub Example()
Dim hLink As Hyperlink
For Each hLink In ActiveSheet.Hyperlinks
    hLink.TextToDisplay = Right(hLink.Address, 8)
Next hLink
End Sub

In XL hold ALT and press F11 (brings up the VBE window), then ALT + I -> M and paste the above code into the resulting window.

Back in XL you can call the subroutine either via the Tools -> Macros menu or by pressing ALT + F8, selecting routine and pressing Run.

Obviously macros must be enabled - to check your Macro security settings use Tools -> Macros -> Security ... I would advise Medium (never Low). On medium security when opening files containing VBA you will be prompted to either Enable/Disable macros (Low will auto enable).