Hi! I'm getting a subscript out of range error on the line in the sub below. I have no idea why. It's happening to all of the copy lines. All of those worksheets are in the Workbook that the sub resides. I literally copy pasted their names from it. The new workbook also gets created and opened properly. I'm not seeing what's out of range here. I've also played around with sheets and just explicitly saying "Sheet1" but it throws the same error. Any idea?
Code:
Sub Save_New_Workbook(ByRef Workbook_Name As String)
Workbooks.Add
ActiveWorkbook.Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Workbook_Name
ThisWorkbook.Sheets("Raw Data").Copy After:=Workbooks( _
Workbook_Name).Sheets(1)
ThisWorkbook.Sheets("Summary Data").Copy After:=Workbooks( _
Workbook_Name).Sheets(2)
ThisWorkbook.Sheets("Transistor").Copy After:=Workbooks( _
Workbook_Name).Sheets(3)
ThisWorkbook.Sheets("FPGA_CPLD").Copy After:=Workbooks( _
Workbook_Name).Sheets(4)
ThisWorkbook.Sheets("Capacitor").Copy After:=Workbooks( _
Workbook_Name).Sheets(5)
ThisWorkbook.Sheets("Resistor").Copy After:=Workbooks( _
Workbook_Name).Sheets(6)
ThisWorkbook.Sheets("Magnetics").Copy After:=Workbooks( _
Workbook_Name).Sheets(7)
ThisWorkbook.Sheets("Descrete Semi (Diode)").Copy After:=Workbooks( _
Workbook_Name).Sheets(8)
ThisWorkbook.Sheets("Memory").Copy After:=Workbooks( _
Workbook_Name).Sheets(9)
ThisWorkbook.Sheets("Digital Logic").Copy After:=Workbooks( _
Workbook_Name).Sheets(10)
ThisWorkbook.Sheets("Linear Analog").Copy After:=Workbooks( _
Workbook_Name).Sheets(11)
ThisWorkbook.Sheets("AD_DA Converters").Copy After:=Workbooks( _
Workbook_Name).Sheets(12)
ThisWorkbook.Sheets("Analog Interface").Copy After:=Workbooks( _
Workbook_Name).Sheets(13)
ThisWorkbook.Sheets("Analog Pwr Management").Copy After:=Workbooks( _
Workbook_Name).Sheets(14)
ThisWorkbook.Sheets("Interconnect").Copy After:=Workbooks( _
Workbook_Name).Sheets(15)
ThisWorkbook.Sheets("RF").Copy After:=Workbooks( _
Workbook_Name).Sheets(16)
ThisWorkbook.Sheets("Microprocessor").Copy After:=Workbooks( _
Workbook_Name).Sheets(17)
Workbooks(Workbook_Name).Worksheets("Sheet1").Delete
End Sub