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"
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"