Copy sheet from Workbook 1 and move to the end Workbook 2

[IAP]

I have Tried using almost every code on the internet and just tried MrExcels code below, and I just keep getting errors.
Sub CopySheetToNewPage ()
Workbooks.Open Filename:="C:\Users\jfjen\Desktop\New Mold Program\AAA Master File\Location Forms.xlsm"
Sheets("Location 2").Copy After:=Workbooks("A12.Basic Reports.xlsm").Sheets(Sheets.Count)
ActiveSheet.Name = "Location 2"
Workbooks("A12.Basic Reports.xlsm").Close savechanges:=False
End Sub

Workbook name - Location Forms.xlsm has a sheet named Location 2.
I want to copy and Paste sheet named Location 2 into Workbook named A12.Basic Reports.xlsm
After a sheet named Location 1

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub CopySheetToNewPage()
   Workbooks.Open Filename:="C:\Users\jfjen\Desktop\New Mold Program\AAA Master File\Location Forms.xlsm"
   Sheets("Location 2").Copy , Workbooks("A12.Basic Reports.xlsm").Sheets("Location 1")
   Workbooks("A12.Basic Reports.xlsm").Close True
End Sub

 

[IAP]

Thank You for the Reply
workBooks.Open filename:="C:\Users\jfjen\Desktop\New Mold Program\AAA Master File\Location Forms.xlsm"
This line is Highlighted in yellow.

 

[Fluff]

Does that file exist in that location?

 

[IAP]

Does that file exist in that location?

Yes, Just Checked. I did notice there was a space missing in that line and corrected.
However, now the next line is highlighted
Sheets("Location 2").Copy , Workbooks("A12.Basic Reports.xlsm").Sheets("Location 1")

 

[Fluff]

What error message & number do you get?

 

[IAP]

What error message & number do you get?

Run-time error'9'
Subscript out of range

 

[Fluff]

In that case check that the sheet name are correct (no leading trailing spaces) & also check the workbook name is correct.

 

[IAP]

In that case check that the sheet name are correct (no leading trailing spaces) & also check the workbook name is correct.

I did as you suggested and tried to erase here and there and then put back blindly, but nothing changed.
This is what I got on almost every code that I uploaded to try and make this work.

 

[IAP]

I did, Nothing changed. See Below
Sub CopySheetToNewPage()
workBooks.Open filename:="C:\Users\jfjen\Desktop\New Mold Program\AAA Master File\Location Forms.xlsm"
Sheets("Location1").Copy , workBooks("A12.Basic Report.xlsm").Sheets("Location 2")
workBooks("A12.Basic Reports.xlsm").Close True
End Sub