Opening Selected Hyperlink DISPLAYING TEXT in Default Browser in MS Excel

Question

I solved a portion of my issue and used Excel to open hyperlinks in a number of chosen cells. However, it only functioned if the hyperlink was visible and not covered by "friendly text."

Everything works perfectly and the hyperlinks (URLs) open in the default browser when I use the code below to select cells with hyperlinks (URLs). I want to be able to click on hyperlinks that have "friendly text" displayed on them. =HYPERLINK("http://jsvp/MoveImage.aspx?t=1&sku="&A13,A4). The cells display the word "upload" in this manner.

=IF(LEN(A3)>5,"",HYPERLINK("https://supercms.company.com/ManageProducts/"&LEFT(A3,5),A3)) This displays a value from Cell A3.

I get a Run-time error '-2147221014 (800401ea)' I Cannot open the specified file.

Would there be a way to open the URLs even if the text was hiding the Hyperlink (URL)?

Credit to: PETER ALBERT (https://stackoverflow.com/users/1867581/peter-albert?tab=profile) for his code.

Sub Open_SelectedTextlinks()
    Dim c As Range

    If Not TypeOf Selection Is Range Then Exit Sub
    For Each c In Selection.Cells
        If c.Hyperlinks.Count = 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=c, _
                Address:="http://" & c.Value 'Depending on the content of your cell, remove the "http://" & part
        End If
        c.Hyperlinks(1).Follow
    Next
End Sub

narikkadan · Answer 1 · Oct 7, 2022

Try this code:

  Sub Open_SelectedTextlinks()
If Not TypeOf Selection Is Range Then Exit Sub
For Each c In Selection.Cells
    If c.Hyperlinks.Count = 0 Then

With Worksheets(1)
 .Hyperlinks.Add Anchor:=.Range("a5"), _
 Address:="https://example.microsoft.com", _
 ScreenTip:="Microsoft Web Site", _
 TextToDisplay:="Microsoft"
  Range("A5").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With
    End If
Next

End Sub