Hi
try

'-------------------
'Close Excel
Application.DisplayAlerts = False
Workbooks("PSV WO and Specs.xls").Close
application.quit

--
Regards
Frank Kabel
Frankfurt, Germany

Michael Wise wrote:
Frank,

I have tried that maybe i'm putting it in the wrong spot.
Where would this statment go in this?
-----Original Message-----
Hi Michael
add the line
application.quit

--
Regards
Frank Kabel
Frankfurt, Germany

Michael Wise wrote:
After some other processes take place I wish to exit the
excel application. I have pasted what code I have here to
see where I go from here. Notice in the Close Excel
section i'm getting the excel file to close it just will
not exit my application.


'-----------------
'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


'------------------
'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

Michael
.