would someone pls help? am kinda lost.....don't know what is wrong. webpage
loads ok, but then it seems readystate is continuous loop. Not sure.

Don

Code:

Sub tabIE()

Dim objIE As Object
Dim response As String
msg = "How many items are you checking?"
response = InputBox(msg)
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.Navigate "http://www.smcorp.com"
.resizable = True
End With
Do
DoEvents
Loop While objIE.busy
Do
DoEvents
Loop Until objIE.ReadyState = 4

Set oForm = objIE.Documents.Forms
oForm("shopper_memno").Value = "USERID" 'userid and password changed to
protect the innocent.
oForm("shopper_password").Value = "USRPSWD"
oForm("submit1").Click
Do
DoEvents
Loop While objIE.busy
Do
DoEvents
Loop Until objIE.ReadyState = 4

Call tabIE2(response)
ActiveWorkbook.Save

Set oForm = Nothing
Set objIE = Nothing
End Sub