Subscript out of range - coping specific sheets to new workbook

[mssbass]

This was running but all the sudden, I'm getting a subscript out of range error at this last line?

Dim wbO As Workbook, wbN As Workbook

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

Set wbO = ActiveWorkbook
Set wbN = Workbooks.Add

wbO.Sheets("Exceptions").Copy wbN.Sheets(1)

 

[mssbass]

Is it a possible bug/corruption?

 

[Fluff]

What is the code name for that sheet?
If you look in the project window of the VB Editor you will see something like

What is the name before the brackets?

 

[mssbass]

What is the code name for that sheet?
If you look in the project window of the VB Editor you will see something like
View attachment 25044
What is the name before the brackets?

 

[mssbass]

Sheet1 (Exceptions)

 

[Fluff]

Ok what happens if you try

Sheet1.Copy wbN.Sheets(1)

 

[mssbass]

Ok what happens if you try

Sheet1.Copy wbN.Sheets(1)

Ok what happens if you try

Sheet1.Copy wbN.Sheets(1)

That worked without an error - so tell me what happened?

 

[Fluff]

No idea, it's possible the sheet has become corrupted. I've never encountered that error before, so searched the net & found a number of posts where using the code name worked.

 

[mssbass]

No idea, it's possible the sheet has become corrupted. I've never encountered that error before, so searched the net & found a number of posts where using the code name worked.

You're awesome!! Thanks for digging in and helping me through

 

[Fluff]

You're welcome & thanks for the feedback.