Web Browser Control
 

We have a spreadsheet with a Web Browser Control in it.
Our macro moves thru different pages on the control using
code something like this

Worksheets
(1).WebBrowser1.Navigate "https:/company/homepage.com/docs
/VendList.cmd"

We then inserted the following code to cycle thru until
the page is displayed.

Do While Not intReadyState = 4
intReadyState = Worksheets(1).WebBrowser1.ReadyState
Loop

The nect code resets the ReadyState to 0 to begin the
navigation to the next panel.

intReadyState = 0

Something is not right. The new page is not displaying in
the Web Browser Control unless I hit CTL+ALT+DEl and then
click on debug.

Once I do this then the "new" page is displayed or the Web
Browser Control appears to be refreshed with the new page.

This is our first attempt to use this control and any
suggestions on making this run better would be
appreciated. Thanks for the help.

Web Browser Control
 

Have you tried putting a
DoEvents
just ahead of Loop?

Have you set
application.ScreenUpdating = False
anywhere?

Stephen Rasey
Houston

"JT" wrote in message
...
We have a spreadsheet with a Web Browser Control in it.
Our macro moves thru different pages on the control using
code something like this

Worksheets
(1).WebBrowser1.Navigate "https:/company/homepage.com/docs
/VendList.cmd"

We then inserted the following code to cycle thru until
the page is displayed.

Do While Not intReadyState = 4
intReadyState = Worksheets(1).WebBrowser1.ReadyState
Loop

The nect code resets the ReadyState to 0 to begin the
navigation to the next panel.

intReadyState = 0

Something is not right. The new page is not displaying in
the Web Browser Control unless I hit CTL+ALT+DEl and then
click on debug.

Once I do this then the "new" page is displayed or the Web
Browser Control appears to be refreshed with the new page.

This is our first attempt to use this control and any
suggestions on making this run better would be
appreciated. Thanks for the help.