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

Column count of Array

Sub ColumnCountofArray()
    Dim strArr()
    strArr = Range("A1:D10")
    MsgBox "Column of StrArr =" & UBound(strArr, 2)
End Sub