Locate and open existing Internet Explorer Web Page

[This is Driving Me Nuts]

G'day,

I am trying to quickly locate and see an internet explorer window which has already been opened . But I can not seem to make my vba code to open the existing web page. Any assistance on this challenge would be appreciated. Thank you

Sub Test()

Dim shell_application As Object
Dim open_window As Object
Dim ie As Object

Set shell_application = CreateObject("shell.application")

For Each open_window In shell_application.Windows

If TypeName(open_window.document) = "HTMLDocument" Then
Set ie = open_window

Exit For
End If

Next

If ie Is Nothing Then
MsgBox "did not find internet window"

Else
MsgBox "found the page, now navigating"
ie.navigate "google"


With ie
.Height = 600
.Width = 1900
.Top = 373
.Left = 25
.Visible = True
.Toolbar = False
.StatusBar = True
.MenuBar = False

End With

End If

Set ie = Nothing



End Sub

 

[This is Driving Me Nuts]

I just worked it out thank you
Sub Example()

Dim myshell
Dim myexplorerwindow
Dim foundexplorerwindow
Dim explorercount
Set myshell = CreateObject("shell.application")
Set foundfoundexplorerwindow = Nothing

Dim dtrparth

strparth = "C:\windows"

For Each myexplorerwindow In myshell.Windows
On Error Resume Next
If UCase(myexplorerwindow.document.Folder.self.Path) = UCase(strPath) Then
Set foundexplorerwindow = myexplorerwindow
Exit For
End If
On Error GoTo 0
Next


If foundexplorerwindow Is Nothing Then
explorercount = myshell.Windows.Count
'myshell.explorer "c:\"
myshell.Open strPath
Do Until myshell.Windows.Count > explorercount
DoEvents
Loop

For Each myexplorerwindow In myshell.Windows
On Error Resume Next
If UCase(myexplorerwindow.document.Folder.self.Path) = UCase(strPath) Then
Set foundexplorerwindow = myexplorerwindow
Exit For
End If
On Error GoTo 0
Next

End If
foundexplorerwindow.Width = 1900
foundexplorerwindow.Height = 600
foundexplorerwindow.Left = 25
foundexplorerwindow.Top = 373
foundexplorerwindow.Visible = True


End Sub