Sub CloseIEWindows()
    Dim strComputer
    Dim objWMIService
    Dim objProcess
    Dim colProcessList

    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" _
      & strComputer & "\root\cimv2")
      
    Set colProcessList = objWMIService.ExecQuery _
      ("Select * from Win32_Process Where Name = 'iexplore.exe'")
    
    For Each objProcess In colProcessList
        objProcess.Terminate
    Next
End Sub

Sub CloseIEWindows2()
    Dim intI
    Dim objShell
    
    On Error Resume Next
    
    Set objShell = CreateObject("Shell.Application")
    
    With objShell
        For intI = .Windows.Count -  1  To  0  Step - 1 
            If TypeName(.Windows(intI).document) = "HTMLDocument" Then
                .Windows(intI).Quit
            End If
        Next
    End With
End Sub