Как заново открыть Internet Explorer и возобновить просмотр веб-страниц vba, если он закрыт по ошибке или по ошибке?

Question

У меня есть список URL-адресов для получения данных с использованием следующего.

lastrow = wks.Cells(Rows.Count, "B").End(xlUp).Row

ie.Visible = True

For i = 2 To lastrow


    mylink = wks.Cells(i, 2).Value
    t = Timer
    Do
        DoEvents
        ie.Navigate2 mylink

        While ie.Busy Or ie.ReadyState < 4: DoEvents: Wend

        On Error Resume Next
        Set availability = ie.Document.querySelector(".stock.in-stock ")
        On Error GoTo 0
        If Timer - t > MAX_WAIT_SEC Then Exit Do
    Loop While availability Is Nothing

    If Not availability Is Nothing Then
        wks.Range(Cells(i, 1), Cells(i, 5)).Interior.ColorIndex = 38

        Set product_sku = ie.Document.querySelector(".single-product__sku")
        wks.Cells(i, "A").Value = product_sku.innerText
        Set price = ie.Document.querySelector(".price .woocommerce-Price-amount")
        wks.Cells(i, "E").Value = price.innerText
        wks.Cells(i, "D").Value = availability.innerText
        Set product_name = ie.Document.querySelector(".single-product__title")
        wks.Cells(i, "C").Value = product_name.innerText


        Set price = Nothing: Set availability = Nothing '.... etc
    End If
    wks.Range(Cells(i, 1), Cells(i, 5)).Interior.ColorIndex = 0
Next i

ie.Quit
Set ie = Nothing

Иногда IE перестает работать, и мне приходится останавливать модуль и перезапускать вручную, или, возможно, я закрываю его по ошибке.

Как возобновить работу модуля и продолжить с того места, где он остановился?