try this
Sub openurl() 'assign to a button
myurl =
"https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804"
ActiveWorkbook.FollowHyperlink _
Address:=myurl
End Sub


--
Don Guillett
SalesAid Software

"gunny1979" wrote
in message ...

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