hwnd = FindWindow(vbNullString, "Книга1")

J = SetForegroundWindow(ByVal hwnd)

Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
                        lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2

Sub GetTaskList()
    Dim lw As Long, s As String, CurrWnd As Long
    CurrWnd = GetWindow(Application.hwnd, GW_HWNDFIRST)
    Do While CurrWnd <> 0
        lw = GetWindowTextLength(CurrWnd)
        s = Space(lw + 1)
        lw = GetWindowText(CurrWnd, s, lw + 1)
        If lw > 0 Then
            Debug.Print Trim(s)
        End If
        CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
        DoEvents
    Loop
End Sub

Debug.Print Trim(s)

    If lw > 0 Then       
        Debug.Print Trim(s)
    End If

       If lw > 0 Then
            If Trim(s) Like "*Windows Internet Explorer*" Then
                MsgBox Trim(s) 'Открытые окна
            End If
        End If

        On Error Resume Next
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True 'False '
        URL = "https://xxxxxxxxxxxt"
        IE.Navigate (URL): Do Until IE.ReadyState = 4: DoEvents: Loop