Case "doClose"
objExcel.DisplayAlerts = False
objExcel.Save
objExcel.Quit
objExcel.DisplayAlerts = True
Set objExcel = Nothing
sys.onOpen 0
Еще немного добавил, а то был запрос при перезаписи файла, если уже существует. Сейчас молча сохраняет. Спасибо!