Ошибка с веб-инструментом, работая дома, но не на работе

Question

Я получаю сообщение об ошибке «Run-time error» -2147418113 (8000ffff)

Метод «Навигация» объекта «IWebBrowser2» не удалось », когда я пытаюсь запустить приведенный ниже скрипт на работе, он работаетотлично дома / на моем ноутбуке, однако.Любые идеи?

Я пытался добавить в Internet Explorer ссылки XML-ссылки и т. Д.

Sub scraper()

        Dim site As String
        Dim lastRow As Long
        Dim ie

        With ActiveSheet
            lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        End With

            Set ie = CreateObject("internetexplorer.application")
            ie.Visible = True

            ie.navigate site

            'idle while ie is busy




            For i = 2 To lastRow

                site = Range("A" & i).Value
                ie.navigate site

            Do
            Loop Until ie.readystate = 3
            Do
            Loop Until ie.readystate = 4


        msg = ie.document.Body.innerhtml
        If InStr(msg, "Summary") = 0 Then
            ActiveSheet.Range("B" & i).Value = "Not Found"
        Else
            ActiveSheet.Range("B" & i).Value = "Found"
       End If
jump:
            Next i
        Exit Sub
error:
    ActiveSheet.Range("B" & i).Value = "Unknown Error!"
Resume jump


End Sub

Должно дать мне найденное или не найденное значение, а не ошибку