Runtime Error -2147417848 (80010108) Automation Error

[kram_027]

Getting the following error:

Runtime error -2147417848 (80010108)
Automation Error
The object invoked has dicsonnected from its clients.


<code><code>
Set ie = CreateObject("InternetExplorer.Application")

Application.ScreenUpdating = False

If Sheets("Adrenalin").Range("C3").Value = "" Or Sheets("Adrenalin").Range("C4").Value = "" Then
MsgBox "Please enter Username and password!", vbCritical + vbInformation
Sheets("Adrenalin").Range("C3").Select
Exit Sub
End If

With ie
.Visible = True
.navigate Sheets("Adrenalin").Range("C2").Value

Do Until Not ie.Busy And ie.ReadyState = 4
DoEvents
Loop

End With


The error appears when executing this code: "</code></code>Do Until Not ie.Busy And ie.ReadyState = 4"

 

[Domenic]

See if the following post helps...

https://stackoverflow.com/questions/12965032/excel-vba-controlling-ie-local-intranet

 

[kram_027]

Thanks Domenic. I followed the instructions and it works.