Would I be wrong in thinking this code is stored in the workbook called "PSV WO
and Specs.xls" - If so then read on, else ignore this note:-
Think about it logically from a step by step basis, and concentrate solely on
your Close Excel section, and keep in mind where this macro is actually stored:-
Step1
'Close Excel
Application.DisplayAlerts = False
No problem so far, we've stopped the error messages
Step2
'Workbooks("PSV WO and Specs.xls").Close 'Close
OK, now we are closing this workbook (ie hint - the one that contains the macro
that contains step3 to close Excel)
Step3
Excel
Application.Quit
Now how much chance do you think you have of actually getting here, given what
you have just done in step2 :-)
--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03
----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------
"Michael Wise" wrote in message
...
I can not get Excel to quit. I am using application.quit
second item is after this code.
Here is code:
Open word
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "c:\PSV Travelog\Travelog
Template.dot"
WordApp.Visible = True
WordApp.Documents("Travelog Template.dot").Close
SaveChanges:=False
'-------------------
'Close Excel
Application.DisplayAlerts = False
'Workbooks("PSV WO and Specs.xls").Close 'Close
Excel
Application.Quit
'------------------
'Program Ending
' --- Do not modify ---
GoTo EndMain
Main_Err:
Main_Error_Handler
EndMain:
End_Text = "Macro Finished" & vbCrLf _
& "Time Started :" & Start_Time & vbCrLf _
& "Time Completed:" & Now & vbCrLf _
& "Your File is Open in word you may print it
now!"
End_Macro End_Text
End Sub ' Main
second item- How can I delete an .csv file after a
mailmerge takes place in a .dot
Michael
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.608 / Virus Database: 388 - Release Date: 03/03/2004