Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
Dim strUrl as String
strUrl = "http://..........."
IE.Navigate strUrl
Do While IE.busy
Application.Wait 1000
Loop
...............
IE.Quit
set IE = nothing