*SOLVED* subscript out of range error

[brianbaart]

I have made a macro for copy and paste into a new file.
Copied it into vba editor into my code.
Worked fine, but not anymore.
It makes a new file but as soon as it wants to go back to
"Windows("file.xls").Activate"
"it gives a suscripts out of range" error
I have checked for the value of "strBestandMap"
and "strBestand" both are not changed and are fine.

This is my code:

Workbooks.Add
    ChDir strBestandMap
    ActiveWorkbook.SaveAs Filename:=strBestand
    Windows("file.xls").Activate
    Sheets("resultaten").Select
    Cells.Select
    Selection.Copy
    Windows("" & strBestandNaam & "").Activate
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close

Thanks in advance,
Brian

[RobDog888]

When you do a SaveAs it will change the file to the new name
and the original one is closed. Use the .SaveCopyAs instead.

ActiveWorkbook.SaveCopyAs Filename:=strBestand

[brianbaart]

Converting SaveAs to SaveCopyAs has not helped at all.

Workbooks.Add
    ChDir strBestandMap
    ActiveWorkbook.SaveAs Filename:=strBestand
    Workbooks("file.xls").Activate
    Sheets("resultaten").Select
    Cells.Select
    Selection.Copy
    Workbooks("" & strBestandNaam & "").Activate
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close

The programs stops at:
Workbooks("Royaltys.xls").Activate
And gives a "Subscript out of range" error

It has worked before I have made some changes to the code somewhere else in the program (nothing to do with this)
and now it doesn't work.

HELP SOMEBODY HELP,

Thanks in advance,
Brian

[brianbaart]

Thanks for reading it,
But I have made a new macro.

Sheets("resultaten").Select
Cells.Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=strBestand
ActiveWindow.Close
Range("A1").Select
Sheets("start").Select
Range("A1").Select

It no longer gives the error
Don't know why but it doesn't.