existing Hyperlinks does not work

[drom]

Hi and thanks in advance!

I have a TXT file with some columns and many rows.
One of the columns comes with URL addresses
I have a macro who creates a report for some customers in PDF and shows this URL's as:

• URL 001
• URL 002
• URL 003

And when you click on those places, cells you go to the URL address through internet
This works fine for every client (over 200) except for one

When I click the hyperlink I don't go anywhere.

• But if I copy the HyperLink address and I paste-it within google chrome and/or internet explorer the URL exists and works fine

I do not know why?

Dim rcCOL As Range:         Set rcCOL = Range("rcURL") 
  For Each rCell In rcCOL
    If rCell <> "" Then
      X = X + 1
      rCell.Hyperlinks.Add Anchor:=rCell, Address:=rCell, TextToDisplay:="URL " & Format(X, "000")
      'rcRowDataURL.Cells(xRow).Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula ' aURL(xRow, 1) = ""
    End If
  Next rCell

This are some existing URL's I am not able to make then work using the above code:
URL

• https://www.netrivals.com/es/redirect-to?re=1&store-redirect-url=YUhSMGNITTZMeTkzeFZiZDNjdVptRnliV0YyWVhweGRXVjZMbU52YlM5eWIzTmhZM1Z5WlMxcGJuUmxibk5wZG1VdE5UYzJPREl5TG1oMGJXdz0=
• https://www.netrivals.com/es/redirect-to?re=1&store-redirect-url=YUhSMGNITTZMeTkzeFZiZDNjdVptRnliV0YyWVhweGRXVjZMbU52YlM5b1pXeHBiMk5oY21VdFoyVnNMV055WlcxaExYTndaaTAxTUMxamIyeHZjaTFpY205M2JpMDFNQzF0YkMwMU56WTVOekV1YUhSdGJBPT0=

This are some existing URL's and working URL's using the above code (the do belong to other customer):
URL

• Rosacure Intensive Protective Emulsion SPF 30, 30ml
• Neostrata Resurface Gel Forte, 100ml

So My problem is why the URL's belonging to my first customer (I have pasted only 2 lines, but is thesame for the other 200 url's, check blue colour ) dont work using the code, and works when doing manually, copy-paste

And for avery other customer the same code always works

Thanks gain!

Sub WorkingURLeg()
Dim wURL As String: wURL = ActiveCell
    'WORKS
    'wURL = "https://www.netrivals.com/es/redirect-to?re=1&store-redirect-url=YUhSMGNITTZMeTkzeFZiZDNjdVoyOXZaMnhsTG1WekwyRmpiR3MvYzJFOVRDWmhhVDFFUTJoalUwVjNhVmd5YzBNNGNVeHFlVUZvV0doSlN6QkhTR1I1WDBOT01GbEJRa0ZSUjJkS2QyUm5Kbk5wWnoxQlQwUTJORjh4UjBjd1NrOHhVbFpaYUVKRGQyOU1hV2xQZFhSb1YybHpSV2RuSm1OMGVYQmxQVFVtY1QwbWRtVmtQVEJoYUZWTFJYZHBiSFp5TmpoeFRHcDVRV2hZVVVkNlVVbElWRUpXUkZvd1VURnBhMGxNUVNaaFpIVnliRDA9"
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wURL, TextToDisplay:="URL01"
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
End Sub

Sub NonWorkingURLeg()
On Error Resume Next        'MANDATORY with this URL's
' Macro4 Macro
Dim wURL As String: wURL = ActiveCell
    'WORKS when copy-Paste on internet but now when using this macro
    'wURL = "https://www.netrivals.com/es/redirect-to?re=1&store-redirect-url=YUhSMGNITTZMeTkzeFZiZDNjdVptRnliV0YyWVhweGRXVjZMbU52YlM5eVpXZGhiRzh0ZG1samFIa3RjSEp2ZEc5amIyeHZMV052Ym5SeVlTMXNiM010WldabFkzUnZjeTFrWlMxc1lTMXlZV1JwWVdOcGIyNHRkV3gwY21GMmFXOXNaWFJoTFRZeE1qQTJNeTVvZEcxcw=="
    'wURL= "https://www.netrivals.com/es/redirect-to?re=1&store-redirect-url=YUhSMGNITTZMeTkzeFZiZDNjdVptRnliV0YyWVhweGRXVjZMbU52YlM5b1pXeHBiMk5oY21VdE16WXdMWGRoZEdWeUxXZGxiQzF6Y0dZMU1DMDFNQzF0YkMwMk1ESTNOekV1YUhSdGJBPT0="
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wURL, TextToDisplay:="URL01"
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
End Sub

 

[Dan_W]

I can't be certain, but I suspect it may be the case that the URLs (in the case of this one client) are too long. There is apparently a 255 character limit when it comes to a hyperlink URL - see this Post for example. In terms of how to fix it, you can see at the bottom of that post that I proposed one solution, which appears to have been effective. Also, I note that there is the following solution proposed on the Microsoft website: Post I suspect the second option may be better for you, but it will depend.

I hope that helps.