Run time error 438

[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'