Hi All,

I need some help to run my code faster. ( Excel to Web Automation )

The bloew codes logs in web site & gets the status, for the search
value mentioned in col A

I want to run for 300 hundred records, I can do loop BUT is there any
way get the results very fast. ???

Currenty It takes 40 records per minute.

Function web_test()

Set IE = New InternetExplorer

URL = confidential
IE.Visible = True

IE.Navigate URL

Do While IE.ReadyState < 4 Or IE.Busy = True
DoEvents
Loop

Set ENTID = IE.Document.getelementsbyname("txtPersonnelNumber" )
Set PWD = IE.Document.getelementsbyname("txtPassword")
Set FORM = IE.Document.getelementbyid("btnLogIn")

With login
ENTID.Item(0).Value = .username_tx
PWD.Item(0).Value = .password_tx
FORM.Click
End With

Do While IE.ReadyState < 4 Or IE.Busy = True
DoEvents
Loop

IE.Navigate2 "Confidential 2.aspx"

Do While IE.ReadyState < 4 Or IE.Busy = True
DoEvents
Loop

VIP = Trim(Cells(1, "a").Value)

Set FNAME = IE.Document.getelementsbyname("txtCID")
FNAME.Item(0).Value = VIP

Set SRCH = IE.Document.getelementbyid("btnSearch")
SRCH.Click

Do While IE.ReadyState < 4 Or IE.Busy = True
DoEvents
Loop

Set ID_ID =
IE.Document.getelementbyid("dtgSearchResult_ctl03_ lbldtgCID")
Cells(I, "B").Value = ID_ID.innertext

End Function