Open Links with VBA

[luisvv93]

Hello Team,

I am trying to open some links with a VBA code however I get an error, this is the 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:=c.Value 'Depending on the content of your cell, add: "http://" &
End If
c.Hyperlinks(1).Follow
Next

End Sub

And the link that I trying to open is:
https://term.currentlyTerms.com/sear...&search=Search!

For some reason the browser Firefox gives me this error:
"
File not found

Firefox can’t find the file at /C:/Users/luiveg/AppData/Local/Microsoft/Windows/INetCache/IE/X2ZK0FR5/search[1].htm.

Check the file name for capitalization or other typing errors.
Check to see if the file was moved, renamed or deleted.
"

If I go and copy and paste manually the link in firefox it works, so it is not the link, it might be the code.

Any thoughts?

Thanks,
Luis V.