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)
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)