Public Sub AllExcelClose()
Dim Obj
On Error Resume Next
DoEvents
Set Obj = GetObject(, "excel.application.10")
If Not Obj Is Nothing Then
    Obj.DisplayAlerts = False
    Obj.Save
    Obj.Quit
End If
End Sub

Application.DisplayAlerts = False