Subscript out of range error

[Garrek]

I'm trying to copy data in Cell F33 on one workbook to cell B5 on another workbook. Whenever I run the code, I get "subscript out of range" and the debugger highlights the 6th line, containing the copy range.

Sub Copy()


Dim x As Workbook
Dim y As Workbook


Set x = Workbooks.Open("Report")
Set y = Workbooks.Open("Output")


x.Sheets("Leader").Range("F33").Copy


y.Sheets("Shell").Range("B5").PasteSpecial


End Sub

Any thoughts on why this is happening?

 

[Fluff]

Do you have a sheet called "Leader" in workbook "Report"?
If so check for leading/trailing spaces in the sheet name

 

[Garrek]

Do you have a sheet called "Leader" in workbook "Report"?
If so check for leading/trailing spaces in the sheet name

I do, and I've tried renaming it multiple times. There don't appear to be any extraneous spaces either.

 

[Fluff]

If you try

Sub Copy()


Dim x As Workbook
Dim y As Workbook


Set x = Workbooks.Open("Report")
Set y = Workbooks.Open("Output")

x.Activate
Sheets("Leader").Select




End Sub

What happens?