Програмное закрытие экселя.

Sub Close_Excel()
Dim strClsExl As String
strClsExl = "TASKKILL /F /IM Excel.exe"
Shell strClsExl, vbHide
End Sub 
findsarfaraz.blogspot.com