I cannot get this form to submit without an error page...on the website.
Any help?
Any help?
Code:
Sub SpeedSearchPhysician_NPIRegistry()
Dim IE
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.navigate ("[URL unfurl="true"]https://nppes.cms.hhs.gov/NPPES/NPIRegistrySearch.do?subAction=reset&searchType=ind")[/URL]
Do
If IE.readyState = 4 Then
IE.Visible = True
Exit Do
Else
DoEvents
End If
Loop
'USE VIEW SOURCE TO GET FORM ELEMENT IDS
IE.Document.forms(0).all("searchNpi").Value = Range("I10")
IE.Document.forms(0).all("firstName").Value = Range("I8")
IE.Document.forms(0).all("lastName").Value = Range("I9")
IE.Document.forms(0).all("state").Value = Range("I13")
IE.Document.forms(0).submit
End Sub