Eduardo1122

Olá pessoal, Estou criando um código simples para acessar o google e preencher o campo pesquisar, mas sempre que rodo a macro aparece o erro 438 this object doesn`t support this... Vocês poderiam me ajudaR? ' Sub ee() ' ' ee Macro Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "www.google.com" IE.Visible = True While IE.Busy DoEvents Wend IE.Document.All("q").Value = ThisWorkbook.Sheets("sheet1").Range("a1") End Sub'