Looping in each IE 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

For more Details Visit :
http://www.excelfox.com/forum/f20/looping-through-each-internet-explorer-348/

RAJAN_VERMA