Hyperlink folgen

Sub FolgenHyperlink()
Dim hypLink As Hyperlink
For Each hypLink In ActiveSheet.Hyperlinks
If InStr(hypLink.Address, "http")  0 Then _
hypLink.Follow NewWindow:=True
Next
End Sub

funktioniert bei folgendem Link:
http://service.gmx.net/de/cgi/derefer?TYPE=3&DEST=http%3A%2F%2Filona.nis-markt.de%2Fkam%2Fanz_confirm.php3%3F42303%261776ca66
aber hier nicht:
https://freemailng6503.web.de/jump.htm?goto=http%3A%2F%2Filona.nis-markt.de%2Fkam%2Fanz_confirm.php3%3F42303%261776ca66
Ich habe die Adresse schon in "https" geändert, aber auch kein Erfolg.
Was muss ich ändern?
Vielen Dank und liebe Grüße
Gisela