Problem filling out form on internet using macro

[DrMingle]

I need help with the below code...

I am attepting to go to the business search and fill in some of the data on website....

Sub WhitePagesEntry()

Dim objIEWP

Set WshShell = CreateObject("WScript.Shell")
Set objIEWP = CreateObject("InternetExplorer.Application")
objIEWP.Visible = False

objIEWP.navigate2 "

http://www.WhitePages.com"

objIEWP.Visible = True
While objIEWP.busy
Wend
objIEWP.Visible = True
objIEWP.Visible = True

WshShell.AppActivate "Name or Category"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
Name = "medical center"
WshShell.SendKeys Name

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "37211"

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{Enter}"

End Sub

 

[PHV]

Have a look here:
faq707-6399

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886