Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Sub BrowseToSite()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.google.com"
'Waiting for Internet Explorer to load Fully
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
'Print LocationName & LocationURL
Debug.Print IE.LocationName
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment