ThisWorkbook

[Demirion]

Hello, I would like to change "namefile_2.xlsm" to ThisWorkbook in this line of code while maintaining the functionality. How can it be done in a simple way?

Windows("namefile_1.xlsx").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("namefile_2.xlsm").Sheets(Workbooks("namefile_2.xlsm").Sheets.Count)

Is there any way to improve this code? I'm specifically talking about Windows and Select.

 

[DanteAmor]

Try:

Sub test()
  Workbooks("namefile_1.xlsx").Sheets("Sheet1").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End Sub

 

[Demirion]

Thank you very much. It works!