Microsoft Office Forums - View Single Post - [Solved] Capturing Redirected URL with macro

gmayor · 07-11-2015, 09:34 PM

The error appears to relate to the macro trying and failing to open a second instance of IE. Try the following instead

Code:

Dim myIE As Object
Dim redURL As String
    redURL = "http://www.gmayor.com/Word_pages.htm"
    On Error Resume Next
    Set myIE = GetObject(, "InternetExplorer.Application")
    If Err Then
        Set myIE = CreateObject("InternetExplorer.Application")
    End If
    On Error GoTo 0
    myIE.Visible = True
    myIE.Navigate redURL

    Do While myIE.Busy
    Loop