Subscript out of range error on VBA code in Excel

[Sorwen]

I keep getting a Subscript out of range error on this part of code. I know it works as I've used the code in other things and recording a macro gives almost the exact code.

OldWorkbookName = ActiveWorkbook.Name
Workbooks.Add
NewWorkbookName = ActiveWorkbook.Name
    
Windows(OldWorkbookName).Activate
Selection.Cut     'Selection is made else where in the code
Windows(NewWorkbookName).Activate 'This line is the error
Range("A1").Select
ActiveSheet.Paste

Any idea what might be happening?

 

[Zathras]

Hmmmmm. Works for me.

Did you save the new workbook somewhere in the middle of that? That would make the value in NewWorkbookName obsolete.

 

[Sorwen]

It does shortly after that code, but not during or before. That is how the code is from start to finish for the copy. All it has to do is copy the info it has from the old workbook to the new, print the new, save the new, and close everything.

 

[Sorwen]

If found it. It is some combination of if you put it in the Workbook_Open event, Active one workbook, Cut (or copy), and then try to call another workbook for it to not work. Any of those on their own worked fine for me, but you do all of it and it breaks. To fix it I just had to move it to a separate module and have the Workbook_Open even call the function there for it to work.