Sub test()
Dim IE As Object
Dim IEaddress As String
'OPEN INTERENT
Set IE = CreateObject("InternetExplorer.Application")
IEaddress = "file://youfile.html"
IE.Visible = True
IE.Navigate IEaddress
While IE.Busy
DoEvents
Wend
IE.Navigate "#new-address"
End Sub
|