Помогите по VBA

Формулировка задачи:

Добрый день!
Есть скрипт, даже работает, но надо сделать так, чтобы сначала закрывались все окна Internet Explorer а потом выполнлояь все остальное. Вопрос, реально ли? Если да, то как?
скрипт.
On Error Resume Next
Dim subNet
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set objNetwork = CreateObject("Wscript.Network")
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
Буду благодарен за помощь

Решение задачи: «Помогите по VBA»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> CloseIEWindows2()
    <font color="blue">Dim</font> intI
    <font color="blue">Dim</font> objShell
    
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
    
    <font color="blue">Set</font> objShell = CreateObject(<font color="teal">"Shell.Application"</font>)
    
    <font color="blue">With</font> objShell
        <font color="blue">For</font> intI = .Windows.Count - <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>0</b></font> <font color="blue">Step</font> -<font color="darkblue"><b>1</b></font>
            <font color="blue">If</font> TypeName(.Windows(intI).document) = <font color="teal">"HTMLDocument"</font> <font color="blue">Then</font>
                .Windows(intI).Quit
            <font color="blue">End</font> <font color="blue">If</font>
        <font color="blue">Next</font>
    <font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        