Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida

Question

Pessoal, boa tarde.

Sou novato no VBA e preciso de uma grande ajuda em uma automação que estou fazendo. Elaborei um buscador de palavras, pelo IE, que traz a quantidade de notícias publicadas num determinado dia, para a palavra selecionada.

Quando eu depuro linha a linha, está funcionando certinho . Mas quando dou "play", ele apresenta na linha: "Range("b" & linha) = elements(count).innerText" o erro "Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida". Já tentei um monte de coisa e não descobri ainda. Poderiam me ajudar? Segue código (Não coloquei o nome do site):

Sub BUSCADOR()
Dim ie As Object
Dim linha As Byte
Dim palavra As String
Dim j2 As String
Dim J3 As String

'data inicio
j2 = Range("j7")
'data final
J3 = Range("j8")

Sheets(1).Select

  For linha = 2 To Cells(Rows.count, 1).End(xlUp).Row
  'palavra selecionada  
  palavra = Range("A" & linha)

  Set ie = CreateObject("InternetExplorer.Application")

     ie.navigate "http://www.tttttttttttttt?q=" & palavra & j2 & J3
     ie.Visible = True

       Do While ie.busy

       Loop

   Set html = ie.document

   Set elements = html.getElementsByClassName("search-total-label text-default")

    'cola a quantidade de notícias que trouxe
    Range("b" & linha) = elements(count).innerText

 ie.Quit

Next linha

End Sub

Answer 1

A variável count não foi setada em nenhum lugar.

Att