Excel 2002, WinXP
I am copying from one file to another. The name of the source file is
fixed. The name of the destination file is a variable, DestFile. DestFile
in this instance is "MyFile.xls". Both files are open. The offending code
is:

Windows("Reports.xls").Activate
Sheets("Paste").Range("A2", Range("A" & Rows.Count).End(xlUp).Offset(,
1)).Copy _
Workbooks(DestFile).Sheets("Paste").Range("A2")

I get an Application defined or Object defined error on the above code.
What am I doing wrong?
Thanks for your help. Otto

Sheets("Paste").Range(Sheets("Paste").Range("A2"), _
sheets("Paste").Range("A" _
& Rows.Count).End(xlUp).Offset(,1)).Copy _
Workbooks(DestFile).Sheets("Paste").Range("A2")

--
Regards,
Tom Ogilvy

"Otto Moehrbach" wrote in message
...
Excel 2002, WinXP
I am copying from one file to another. The name of the source file is
fixed. The name of the destination file is a variable, DestFile.
DestFile
in this instance is "MyFile.xls". Both files are open. The offending
code
is:

Windows("Reports.xls").Activate
Sheets("Paste").Range("A2", Range("A" & Rows.Count).End(xlUp).Offset(,
1)).Copy _
Workbooks(DestFile).Sheets("Paste").Range("A2")

I get an Application defined or Object defined error on the above code.
What am I doing wrong?
Thanks for your help. Otto

Tom
I would have gone a long way before I thought of qualifying the sheet,
but it's obvious now that you pointed it out. I changed what you had to a
With Sheet/End With construct and it's fine now. Thanks for your help.
Otto
"Tom Ogilvy" wrote in message
...
Sheets("Paste").Range(Sheets("Paste").Range("A2"), _
sheets("Paste").Range("A" _
& Rows.Count).End(xlUp).Offset(,1)).Copy _
Workbooks(DestFile).Sheets("Paste").Range("A2")

--
Regards,
Tom Ogilvy

"Otto Moehrbach" wrote in message
...
Excel 2002, WinXP
I am copying from one file to another. The name of the source file is
fixed. The name of the destination file is a variable, DestFile.
DestFile
in this instance is "MyFile.xls". Both files are open. The offending
code
is:

Windows("Reports.xls").Activate
Sheets("Paste").Range("A2", Range("A" &
Rows.Count).End(xlUp).Offset(,
1)).Copy _
Workbooks(DestFile).Sheets("Paste").Range("A2")

I get an Application defined or Object defined error on the above code.
What am I doing wrong?
Thanks for your help. Otto