[johnson81]

уже нашёл, может кому пригодиться

Код:

Const navOpenInBackgroundTab = &H1000
    
    Set ie = CreateObject("InternetExplorer.Application")
    
    Links = Array("http://ya.ru")
    
    ie.Visible = True '// поставьте false, чтобы не было видно браузера
 
    first = True
    For Each link In Links
        If first Then
            ie.Navigate2 link
            first = False
        Else
            ie.Navigate2 link, navOpenInBackgroundTab
        End If
    Next
    
    WScript.Sleep(10000) '// Задержка 10 сек.
 
    For Each Window In CreateObject("Shell.Application").Windows
        With Window
            If .Name = "Internet Explorer" Then
                For Each link In Links
                    If InStr(1, .LocationURL, Title, vbTextCompare) <> 0 Then
                        .Quit
                        Exit For
                    End If
                Next
            End If
        End With
    Next