Re: Code after Application.Run not working

[Don Guillett <donaldb@281.COM>]

OOPs.
I didn't notice that you were copying from a DIFFERENT workbook.
No need to goto it at all. You also do NOT need to select

try to modify this line to copy from closed workbooks.
range("a8") = Workbooks("021303.xls").Sheets("sheet8").Range("c1")
====
----- Original Message -----
From: "Don Guillett" <donaldb@281.COM>
To: <EXCEL-G@PEACH.EASE.LSOFT.COM>
Sent: Wednesday, July 30, 2003 11:10 AM
Subject: Re: Code after Application.Run not working


> See if this is better
> Sub Macro4()
>   Workbooks.Open FileName:="C:\yourfolder\yourfile.xls"
> With ActiveWorkbook
>  .Sheets("sheet2").Range("a1") = _
>  .Sheets("sheet1").Range("b2")
>  .Save
> End With
>  ActiveWindow.Close
> End Sub
>
> Don Guillett
> SalesAid Software
> Granite Shoals, TX
> donaldb@281.com
> ----- Original Message -----
> From: "Jim ." <Escojpoer@AOL.COM>
> To: <EXCEL-G@PEACH.EASE.LSOFT.COM>
> Sent: Wednesday, July 30, 2003 10:33 AM
> Subject: Code after Application.Run not working
>
>
> > Hi-
> >        I have this piece of code below that runs, then opens another wb,
runs
> > the code in that wb(Transfer2), then closes and saves that wb, then(while
> > stepping through), the cursor goes to the line
> "Application.ScreenUpdating=True",
> > but the line is not highlighted in yellow (as all steps are in stepping
> > through). Then if I continue to hit F8, it goes back to the beginning of the
> > Transfer mac and starts again. Why does it not continue through after it
> closes the
> > other wb?? It's like it steps out completely after closing the ITEHH.xls wb.
> >   Jim
> >
> > Sub Transfer()
> >     Application.EnableEvents = False
> >     Application.DisplayAlerts = False
> >     Workbooks.Open Filename:="C:\ftpfiles\ITE11.WK3"
> >     Range("V8:AG152").Select
> >     Selection.Copy
> >     Windows("ITECAT3D.xls").Activate
> >     Range("B8").Select
> >     ActiveSheet.Paste
> >     Windows("ITE11.WK3").Activate
> >     ActiveWindow.Close
> >     Application.DisplayAlerts = True
> >     ChDir "C:\Documents and Settings\ITEREBATES"
> >     Workbooks.Open Filename:= _
> >         "C:\Documents and Settings\ITEREBATES\ITEHH.xls"
> >         Application.Run ("ITEHH.XLS!Transfer2")' Stops here, but goes back
to
> > beginning of this macro and runs again
> >         Application.ScreenUpdating = True
> >         Application.EnableEvents = True
> >         ActiveWorkbook.Save
> >         Application.Quit
> > End Sub
> >
> > ****Below is code in ITEHH.xls workbook***************
> >
> > Sub Transfer2()
> >     Application.DisplayAlerts = False
> >     Workbooks.Open Filename:="C:\ftpfiles\ITEHH1.WK3"
> >     Range("V8").Select
> >     Selection.Copy
> >     Windows("ITEHH.xls").Activate
> >     Range("A8").Select
> >     ActiveSheet.Paste
> >     Windows("ITEHH1.WK3").Activate
> >     ActiveWindow.Close
> >     Application.DisplayAlerts = True
> >         ActiveWorkbook.Close savechanges:=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
>

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