ralf_guv

Pessoal pode me ajudar por favor Estou tentando fazer um projeto muito difícil e me enrolei logo no começo, mais vamos lá né, estou começando em VBA por isso a dificuldade. segue o Codigo Sub AcessaPagina() 'Criando variacel para o internet explore Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True 'acessando o site desejado IE.Navigate ("http://200.155.13.164/ppec/login.php?entrypoint_uuid=6bc58374-c734-54a4-99f8-401f8c820873") Do If IE.ReadyState = 4 Then IE.Visible = True Exit Do Else DoEvents End If Loop 'Ao Abrir a pagina insere o login e senha e clica no botão entrar IE.Document.Forms(0).All("login").Value = Range("b1") IE.Document.Forms(0).All("password_sem_md5").Value = Range("b2") IE.Document.All("submit").Click 'entra no calendario IE.Document.All("SHOW=mes").Click IE.Document.All("?cmd=listar&SHOW=mes").Click IE.Document.Forms(0).submit End Sub a parte que esta em vermelho e na onde esta dando o erro