Error on copy from one workbook to another

[Milan Cetic]

I'm trying to copy cells from one workbook to another (copyfrom.xslm and copyto.xlsx)
This is the code I'm using

Sub CopyToWorkbook()

Range("A1:D4").Copy Workbooks("copyto").Worksheets("Sheet1").Range("A5")

End Sub

When I execute the code I get the Runtime error '9': Subscript out of range.
It's like there is no copyto file although it is open. Makes no sense but this is what's happening. Any ideas?

Thanks!

 

[Fluff]

If you are still getting the RTE 9 Subscript out of range, then there are a few possible reasons.
1) One of the workbooks is not open, or is not open in the same instance of Excel.
2) One of the workbook names is wrong.
3) One of the sheet names is wrong.
4) You did not use the exact code I supplied in post#5.

 

[Milan Cetic]

So what I have changed last is file type of file to which I'm writing. It was .xlsx and now is .xls

This is how it looks now and it works
Workbooks("copyfrom.xlsm").Sheets("Sheet1").Range("A1:D4").Copy Workbooks("copyto.xls").Worksheets("Sheet1").Range("A5")
The question is WHY? I have tried everything with the same syntax but with "copyto.xlsx" and I'm still getting RTE 9

 

[Fluff]

If the file is an xls file you will get an error with Workbooks("copyto.xlsx") because there is no such workbook open.

 

[Milan Cetic]

Sorry if I was not clear.
When I use syntax with .xlsx and open copyto.xlsx file, I get RTE 9.
When I use syntax with .xls and open copyto.xls everything works

 

[Fluff]

I have already pointed out the possible reasons for that error. Without being able to see exactly what your files & sheets are called, there is not much more I can say.