зависает Excel при выходе из приложения

[Raikhman]

зависает Excel при выходе из приложения при выполнении макроса

Sub myQuit()
Application.Quit
End Sub

Такое происходит не на всех компьютерах. Не могу понять в чем причина.
Зависает и выводит сообщение "...программа не отвечает...". Приходится завершать процесс из диспетчера задач.

[Raikhman]

Вроде нашел такой код для завершения процесса.

Private Sub Command1_Click()
'завершить процесс EXCEL.EXE. Работает!!
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'Excel.exe'")
    objProc.Terminate
Next
End Sub

Работает чётко в Win7. В других пока не пробовал. Но два открытых экземпляра Excel разных версий (2003 и 2010) закрывает.
Скачал отсюда: http://www.script-coding.com/WMI_Processes.html