Antonio Marcos Ueda Bueno

Prezados, Não tenho quase que conhecimento nenhum sobre assunto, fiz este código para buscar dados de algumas ações para uma planilha, o fato é que se eu executar ela pelo F8, ela passa em toda a rotina e linhas que tenho na planilha, mas quando eu sou o comando para executar automaticamente, acontece o erro de execução '91'. A variável objeto ou a variável do bloco 'with' não foi definida. Desde já, agradeço pela ajuda! Sub Busca_Acoes() Range("E3:E61").ClearContents Range("G3:G61").ClearContents Range("I3:I61").ClearContents Range("K3:K61").ClearContents Range("M3:M61").ClearContents Range("S3:S61").ClearContents Range("Y3:Y61").ClearContents Range("Z3:Z61").ClearContents Range("AA3:AA61").ClearContents Range("AB3:AB61").ClearContents Range("AC3:AC61").ClearContents Ultlin = Range("A1000000").End(xlUp).Row For lin = 3 To Ultlin Set ie = CreateObject("internetexplorer.application") ie.navigate "https://www.fundamentus.com.br" ie.Visible = False Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop ie.document.getElementsBytagName("input")(0).Value = Cells(lin, 1).Value ie.document.getElementsByClassName("botao")(0).Click Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop Cells(lin, 5) = ie.document.getElementsBytagName("td")(33).innertext Cells(lin, 7) = ie.document.getElementsBytagName("td")(35).innertext Cells(lin, 9) = ie.document.getElementsBytagName("td")(59).innertext Cells(lin, 11) = ie.document.getElementsBytagName("td")(77).innertext Cells(lin, 13) = ie.document.getElementsBytagName("td")(93).innertext Cells(lin, 19) = ie.document.getElementsBytagName("td")(83).innertext Cells(lin, 25) = ie.document.getElementsBytagName("td")(108).innertext Cells(lin, 26) = ie.document.getElementsBytagName("td")(104).innertext Cells(lin, 27) = ie.document.getElementsBytagName("td")(108).innertext Cells(lin, 28) = ie.document.getElementsBytagName("td")(104).innertext Cells(lin, 29) = ie.document.getElementsBytagName("td")(119).innertext Next ie.Quit Range("E3:X162").WrapText = False End Sub