ник: час
в начале кода объявим
xlaProd As Excel.Application
WrkBk As Excel.Workbook
потом присвоим
Set WrkBk = CreateObject("Excel.Sheet")
Set xlaProd = WrkBk.Parent
а в конце
WrkBk.Close
xlaProd.Quit 'вот то, что закроет. иначе прооблеммммммммм
Set WrkBk = Nothing
Set xlaProd = Nothing