Need to Display Actual Url Associated With Hyperlink

[LionBear]

I have a list of 5,000 urls and I'd like to see what the actual url that is returned for each of them. For example, if I run the url www.example.com/runningshoes, that url may redirect to www.example.com/shoes. I'd like to see what each url returns. Is there a formula/macro that I can use to see this? I'm not very experienced in using macros, but I'm willing to give it a shot if it'll work.

 

[LionBear]

Can no one answer this question? Maybe there isn't an answer...

 

[JayHam]

If I'm correct you are wanting to know the the final URL of a hyperlink even if the hyperlink URL is then forwarded/redirected?

You could reference you browsers object library (for Example IE can be referenced through Microsoft Internet Controls)

Private Sub ReturnFinalURL()
Dim IE As InternetExplorer
Dim URL As String
Dim x As Integer

Set IE = New InternetExplorer

For x = 0 To 9
    'Replace this with your hyperlinks if required
    URL = ThisWorkbook.Sheets("URLs").Range("A1").Offset(x, 0).Value
    IE.Navigate URL
    Do Until IE.ReadyState = READYSTATE_COMPLETE
    Loop
    Debug.Print IE.Document.URL
Next x

IE.Quit

Set IE = Nothing

End Sub

This will no doubt have some problems including if any of your URLs have masked forwarding. My advice would be to look to do this outside of Excel and VBA.