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]

I renamed the Exceptions worksheet to test and tried re-running as wbO.Sheets("test").Copy WbN.Sheets(1) and now getting Automation error Invalid forward reference, or reference to uncompiled type?

 

[mssbass]

In that case use

Set wbO = ThisWorkbook

 

[mssbass]

pasting that in as

Set wbO = ThisWorkbook

is in red- won't allow

 

[Fluff]

In that case please post your entire code.

 

[mssbass]

pasting that in as

Set wbO = ThisWorkbook

is in red- won't allow

In that case please post your entire code.

 

[mssbass]

Sub SaveVC()
Dim wbO As Workbook, wbN As Workbook

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

Set wbO = ThisWorkbook
Set wbN = Workbooks.Add

wbO.Sheets("test").Copy wbN.Sheets(1)
wbO.Sheets("UM").Copy wbN.Sheets(2)
wbO.Sheets("Sleep").Copy wbN.Sheets(3)

wbN.Sheets("Sheet1").Delete

wbN.Sheets("Exceptions").Range("A1:H1").Copy
wbN.Sheets("Exceptions").Range("A1:H1").PasteSpecial Paste:=xlPasteValues
wbN.Sheets("UM").Range("A1:E1").Copy
wbN.Sheets("UM").Range("A1:E1").PasteSpecial Paste:=xlPasteValues
wbN.Sheets("Sleep").Range("A1:E1").Copy
wbN.Sheets("Sleep").Range("A1:E1").PasteSpecial Paste:=xlPasteValues

wbN.Sheets("Exceptions").Activate

txtdate = Format(Now - 1, "mm") & "." & Format(Now - 1, "dd") & "." & Format(Now - 1, "yy")
File1 = "\\abc.com\Daily Closed Auto " & txtdate & ".xlsx"

If Dir(File1) <> "" Then
Kill File1
Else
End If

wbN.SaveAs Filename:="\\abc.com\Daily Closed Auto " & txtdate & ".xlsx"

wbN.Close

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True

End Sub

 

[Fluff]

That works fine for me.
Do you get any error messages.

 

[mssbass]

That works fine for me.
Do you get any error messages.

Run-time error '-2147319767 Automation error Invalid forward reference, or reference to uncompiled type.

 

[Fluff]

What line gives that error?

 

[mssbass]

What line gives that error?

wb0.sheets("test").Copy wbN.sheets(1)