ExcelVBAでIEを全部閉じる

Dim objShell As Object
Dim objWin As Object
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
If TypeName(objWin) = "IWebBrowser2" Then
　Set objIE = objWin
　objIE.Quit
End If
Next

ネタ元

• http://loveparin.blog.fc2.com/blog-entry-5.html