Excel VBA - Importar dados de uma página do Google para Excel

[denisdga007]

Boa noite pessoal. Eu fiz a programação abaixo para puxar o preço de alguns anúncios da internet e ele dá o erro "Erro em tempo de execução '-2147024726(b00700aa)': o método 'Navigate' do objeto 'IWebBrowser2' falhou. Gostaria de saber se alguém pode me ajudar a arrumar este erro.

 

Sub ComparadorDePreco()

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True

ultLin = Range("A1000000").End(xlUp).Row

For lin = 2 To ultLin

    objIE.Navigate Cells(lin, 1).Value
    
PassarErroEsperar:

    On Error GoTo Esperar
    
    precoProduto = CDbl(objIE.document.getElementsByClassName("nproduct-price-value nproduct-price-value-redesign")(0).innerText)

On Error GoTo 0

Cells(lin, 4).Value = precoProduto

Next lin

objIE.Quit

Set objIE = Nothing

Exit Sub

Esperar:

    Application.Wait (Now + TimeValue("00:00:01"))
    
    Resume PassarErroEsperar

End Sub