Excel VBA Macro URL to Hyperlinks text How to and Demonstration. Hyperlinks.Add method

This Excel video tutorial shows how to create a Macro in Visual Basic (VBA) and can be very useful for Microsoft Excel VBA beginners. Visual Basic for Applications is the programming language of Excel and other Office programs. With Excel VBA you can automate tasks in Excel by writing so called macros.

For this purpose Hyperlinks.Add method with parameters Anchor, Address, Screen Tip and TextToDisplay were used.

In the result you can convert all selected Excel cell that contains URL addresses to a normal text just by run this Macro!

Vytautas

[norellan]

public sub convert_to_hyperlinks() dim cell as range for each cell in intersect(selection, activesheet.usedrange) if cell <> "" then activesheet.hyperlinks.add anchor:=cell, _ address:=cell.value, _ screentip:="this is a link to the source", _ texttodisplay:="link" end if next end sub

[dhristovaddx]

This is a great video. It really helped me out. Thank you! :)

[veebee]

Good video. Wish you had voice explanations too.

[paul]

I have an excel sheet named 2020 with 30 hyperlinks linking to the various sections in the same sheet. I created a copy of the same sheet and renamed it to 2021. When I click the hyperlink on the new sheet 2021 instead of going to different sections in the same sheet it is redirected to the sections in old sheet 2020. How can I change all the hyperlinks in a easy way so that it will be linked to the sections in the same sheet? Thanks

[Elia]

I would like to understand why if I add an image on an excel sheet and, through hyperlinks, I can enter a description of the image when I hover over it, unfortunately I do not activate the macros assigned to them when I click. Thanks if you can give me an useful information.

[viankaleighpatron]

Sir i have userform with textbox how to appear hyperlink in textbox? Can i email you?

[lordavicii]

THIS TUTORIAL IS WORKING FOR WHOEVER PERSON THAT HAVE HYPERLINKS PROBLEM WITH 255 CHARs LIMITATION.

Public Sub Convert_To_Hyperlinks()

Dim cell As Range
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)

If cell <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=cell, _
Address:=cell.Value, _
TextToDisplay:="LINK"
End If
Next

End Sub

[AbrahamRebello]

i am getting this error

Run-time error '438':
Object doesn't support this property or method

[NetherVoiD]

What if the link is more than 255 characters?

[chessmanreaper]

Mms eso ha lo hace excel sin necesidad de codigo