Sub getALLBrowsers()
Dim objShell As Object
Dim objAllWindows As Object
Dim ow As Object
    Set objShell = CreateObject("Shell.Application")
    Set objAllWindows = objShell.Windows
    For Each ow In objAllWindows
        If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then
            Debug.Print ow
            Debug.Print ow.Hwnd
            Debug.Print ow.document.Title
            Debug.Print ow.LocationURL
        End If
    Next
End Sub