D
dk_
This short macro below, gets stopped with an error in the last line
which reads 'ActiveSheet.Paste', if the referenced workbook,
(test1.xls), is already open when the macro is run.
This macro runs without errors on both the Windows Excel97 and the Mac
Excel98 platforms when the referenced workbook 'test1.xls", is not open
at the time that this macro is run.
(This is the beginning of a longer macro.)
How can this procedure be fixed to make it so the macro can run even if
the "test1.xls" workbook is already open?
This macro is started while viewing an active workbook with downloaded
quotes.
.....Macro starts below here....
Sub TEST_Quote_Copier()
Application.ScreenUpdating = False
Range("A1:I120").Copy
mydir = ActiveWorkbook.Path
Workbooks.Open FileName:=mydir & Application.PathSeparator &
"test1.xls"
Sheets("xyzQuotes").Activate
Range("A10").Select
ActiveSheet.Paste
End Sub
.... am enjoying the learning curve.
Thanks for all the help.
-Dennis
which reads 'ActiveSheet.Paste', if the referenced workbook,
(test1.xls), is already open when the macro is run.
This macro runs without errors on both the Windows Excel97 and the Mac
Excel98 platforms when the referenced workbook 'test1.xls", is not open
at the time that this macro is run.
(This is the beginning of a longer macro.)
How can this procedure be fixed to make it so the macro can run even if
the "test1.xls" workbook is already open?
This macro is started while viewing an active workbook with downloaded
quotes.
.....Macro starts below here....
Sub TEST_Quote_Copier()
Application.ScreenUpdating = False
Range("A1:I120").Copy
mydir = ActiveWorkbook.Path
Workbooks.Open FileName:=mydir & Application.PathSeparator &
"test1.xls"
Sheets("xyzQuotes").Activate
Range("A10").Select
ActiveSheet.Paste
End Sub
.... am enjoying the learning curve.
Thanks for all the help.
-Dennis