Hi,

I have a macro that navigates a website and imputs the date.
I have tried to link it to the information in a cell but it does not
work can someone help please below is my code!!


Code:
--------------------
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 = Worksheets("setup").Range("C59")
.monthYear1.Value = Worksheets("setup").Range("C60")
.day2.Value = Worksheets("setup").Range("C61")
.monthyear2.Value = Worksheets("setup").Range("C62")
.submit

End With
--------------------


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