Trouble copying worksheet between workbooks

[Beneindias]

Hi all,

I have made a macro in excel to copy a worksheet from another workbook without opening that second workbook, but this code only worked the first time.

Sub CopySheetFromClosedWB()
Application.ScreenUpdating = False

    Set closedBook = Workbooks.Open("C:\Users\RubenDias\Desktop\Mapas Ajudas de Custo\Lista Obras.xlsx")
    closedBook.Sheets("Folha1").Copy After:=Sheets("Folha1")
    closedBook.Close SaveChanges:=False

Application.ScreenUpdating = True
End Sub

The plan is to copy "Folha1" from "Lista Obras" workbook and copy it as last worksheet in the currently opened workbook, without opening "Lista Obras".
This code worked the first time I tried it.

I can copy the worksheet manually.

Can anybody help me with this?

Thank you all

 

[Arturthemaster]

Did you put any variables that can change in the code, such as the folder path?
Perhaps excel does not recognize the folder path.

 

[Fluff]

Please post to this forum in English only.

 

[Arturthemaster]

Please post to this forum in English only.

Okay. Sorry.

 

[Fluff]

So please repost your reply in English.

 

[Beneindias]

Did you put any variables that can change in the code, such as the folder path?
Perhaps excel does not recognize the folder path.

The folder path is the same as it was before.
If excel wasn't recognizing the path it would throw me an error, and that does not happen.
It simply looks like it refreshes my opened workbook (and closes my "Lista Obras", if I have it open already) and nothing else happens.

Can I be having problems because de worksheets have the same name?
Already tried to delete the worksheet copied first and then tried to run this macro again, but it didn't worked.
Also tried with ScreenUpdating = True, but it was the same outcome

 

[Beneindias]

Found my solution.
I must have deleted part of the code without realizing, because I just had to add "ThisWorkbook" on the copy line.

Now I will just update this code to delete the last worksheet (previously copied by this code) to copy a new one with the same name.

Sub CopySheetFromClosedWB()
Application.ScreenUpdating = False

    Set closedBook = Workbooks.Open("C:\Users\RubenDias\Desktop\Mapas Ajudas de Custo\Lista Obras.xlsx")
    closedBook.Sheets(1).Copy After:=ThisWorkbook.Sheets(Sheets.Count)
    closedBook.Close SaveChanges:=False

Application.ScreenUpdating = True
End Sub

Thanks you all for the help