Re: How to quit application properly

["Suhajda, Matthew [PCS]" <msuhaj01@SPRINTSPECTRUM.COM>]

Couple suggestions if I may..

Perhaps putting the name of the path into a variable? This way your code
is a bit shorter.

With the problem you are having, I'm fairly sure that if you put in the
code below it should. (untested)

Application.Run ("ITEHH.XLS!Transfer")
Windows("ITEHH.xls ").Activate
ActiveWorkbook.Close Savechanges:=True
Application.Quit


-----Original Message-----
From: Jim . [mailto:Escojpoer@AOL.COM] 
Sent: Monday, July 28, 2003 1:33 PM
To: EXCEL-G@PEACH.EASE.LSOFT.COM
Subject: How to quit application properly

Hi-
       I am trying to open a wb and run a mac in that workbook, save it
with
a filename, open the next wb, run the mac, save it with a new name, then
go
back and close the original, but the original will not close. It has
already
been saved with the new filename, but it and the app still remain open.
Actually
I have 3 wbs to open and run macs and rename, but I am just working with
these
two right now. Need help. At the end of this code I open ITEHH.xls and
run
mac called Transfer. It runs and saves the file with a new name and
closes the
workbook, then the wb CAT3D62003(which has already been saved once by
this mac)
just stays open. How do I close it at the end of this code?? Thankx
     Jim

**Upper code here***running in wb called CAT3D to be saved as CAT3D62003
by
the following code

ChDir "C:\Documents and Settings\JIM \My Documents\BackUp\ITEREBATES"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\JIM \My
Documents\BackUp\ITEREBATES\CAT3D"
& Month(Now()) - 1 & Year(Now()) &  ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ChDir "C:\Documents and Settings\JIM \My
Documents\Backup\ITEREBATES"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\JIM \My
Documents\Backup\ITEREBATES\ITEHH.xls"
        Application.Run ("ITEHH.XLS!Transfer")
        ActiveWorkbook.Close Savechanges:=True'<<here is where it does
not
work
        Application.Quit
Application.ScreenUpdating = True
End Sub

------------------------------------------------------------------------
--
The EXCEL-G list is hosted on a Windows NT(TM) machine running L-Soft
international's LISTSERV(R) software.  For subscription/signoff info
and archives, see http://peach.ease.lsoft.com/archives/excel-g.html .
                             COPYRIGHT INFO:
http://peach.ease.lsoft.com/scripts/wa.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G

--------------------------------------------------------------------------
The EXCEL-G list is hosted on a Windows NT(TM) machine running L-Soft
international's LISTSERV(R) software.  For subscription/signoff info
and archives, see http://peach.ease.lsoft.com/archives/excel-g.html .
                             COPYRIGHT INFO:
http://peach.ease.lsoft.com/scripts/wa.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G