Dim objShellWindows As New SHDocVw.ShellWindows
        Dim objShellWindow As Object
        On Error Resume Next
        For Each objShellWindow In objShellWindows
            If TypeOf objShellWindow.Document Is HtmlDocument Then
                MsgBox(objShellWindow.Document.Title, vbInformation)
            End If
        Next objShellWindow