Макрос, который копирует веб-контент

Question

В настоящее время я работаю над макросом, который открывает ссылки на страницы из столбца A (страницы в столбце A могут быть, например, 10 от a1 до a10), затем выбирает все и копирует в Excel, например на страницу листа, каждое поколение Вот мой начальный макрос:

Sub www()
    Dim mmnt!
    Dim strUrl$
    Dim ie As Object
    strUrl = "http:"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate strUrl
    While (ie.Busy Or ie.readyState <> 4): DoEvents: Wend
    mmnt = Timer: While Timer - mmnt < 2: DoEvents: Wend
    ie.ExecWB 17, 0
    ie.ExecWB 12, 2
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="HTML", link:=False, NoHTMLFormatting:=True 
    ie.Quit
    Set ie = Nothing
End Sub

К сожалению, макрос не работает на некоторых внутренних страницах. Проблема возникает после того, как Inte rnet Explorer был успешно запущен, и при загрузке страницы сразу же появляется сообщение об ошибке:

Run-time error - 2147467259 (80004005)
While (ie.Busy Or ie.READYSTATE <> 4): DoEvents: Wend

У меня есть вопрос, как с этим бороться? Как улучшить макрос?