Need to edge out the competition for your dream job? Train for certifications today.
Dim objWeb As Object
Set objWeb = CreateObject("InternetExplorer.Application")
Dim TimeOut As String
TimeOut = Now + TimeValue("00:00:20") '-- wait maximum of 20 seconds
Do While objWeb.Busy Or objWeb.readyState <> 4
If Now > TimeOut Then GoTo Done
Set objWeb = Nothing
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.