Looping Through Each Internet Explorer

[Rajan_Verma]

User will get the URL of All running webBrowser.

Sub LoopThroughEachIEWindow()

'Reference : Microsoft Internet Control
    
    Dim objSh    As New SHDocVw.ShellWindows
    Dim ibR     As SHDocVw.WebBrowser
    For Each ibR In objSh
        Debug.Print ibR.LocationURL
    Next
End Sub

this code will work with Internet explorer only.

Thanks