My macro uses Internet Explorer to open PeopleSoft Financials and then run a public query. It has been working for a long time until recently. I'm aware of an update to Internet Explorer on our machines in early July and am wondering if that has caused this issue. The macro is throwing an "Object has disconnected from its clients" error message.

Here is how the variable for Internet Explorer is defined:

Public ExpApp As InternetExplorer

Here is the code where the error is thown:

Set ExpApp = CreateObject("InternetExplorer.Application")
ExpApp.Visible = True

ExpApp.navigate vLogin

Do Until ExpApp.readyState = READYSTATE_COMPLETE ' ERROR IS THROWN HERE
MyTimer
Loop

Do Until ExpApp.document.Title <> "PeopleSoft 8 Sign-in"
MyTimer
Loop

Do Until ExpApp.readyState = READYSTATE_COMPLETE
MyTimer
Loop

vLogin is a string with the URL to the PeopleSoft login screen

MyTimer is a little function that waits 1 second each time it is kicked off

This macro has been around a while so I imagine that this is pretty old code. I'm hoping there are a few minor changes I could make instead of re-writing this macro. Any suggestions would be greatly appreciated. Thanks for the help......