Hi,

I have finally managed to work out hoe to navigate to a website
entering into the websites listboxes!!!
Now all I need to do is to import the data I have navigated too, here
is the macro I have so far can someone help me please!!

Sub HiltonBracknell()

Dim ie As Object


Set objWSS = CreateObject("WScript.Shell")
Set ie = CreateObject("InternetExplorer.Application")

With ie
.Visible = True
.navigate
"https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804"
Do While .busy: DoEvents: Loop
Do While .ReadyState < 4: DoEvents: Loop
With .document.Forms("checkavailabilityform")
.Day1.Value = "12"
.monthYear1.Value = "200604"
.Day2.Value = "13"
.monthYear2.Value = "200604"
.submit

End With
End With


End Sub


--
gunny1979
------------------------------------------------------------------------
gunny1979's Profile: http://www.excelforum.com/member.php...o&userid=32932
View this thread: http://www.excelforum.com/showthread...hreadid=529161