vba: open workbook and change sheet name - vba

Question

I am trying to copy a sheet and after this, open the copy to change the first sheet's name.
This is the code inserted on Module1:
Sub CopiarNovaPlanilha()
Dim wkb As Workbook
ActiveWorkbook.SaveCopyAs "I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx"
Set wkb = Workbooks.Open("I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx")
wkb.Sheets(1).Name = "FUNCIONARIOS"
End Sub
The first part of the Sub to save a copy works perfectly. Although when I try to run the second part it gives me the following error:
Run-time error 1004: Excel cannot open the file
And it says that it can't understand the extension .xlsx or that maybe the file is corrupted, but I've checked and the file is ok.
Does anyone knows which problem is that?

Answer 1

This works for me
Private Sub derp()
Dim wbk As Workbook
Dim path As String
path = "C:\Users\dcoats\Desktop\Book1.xlsx"
Set wbk = Workbooks.Open(path)
wbk.Sheets(1).Name = "FUNCIONARIOS"
End Sub
So maybe check your string thats the path to your workbook?
EDIT
I just tried this and it works as well.
Private Sub derp()
Dim wbk As Workbook
Dim path As String
path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\Book1.xlsx"
Set wbk = Workbooks.Open(path)
wbk.Sheets(1).Name = "FUNCIONARIOS"
End Sub
And I just tried this as well
Private Sub derp()
Dim wbk As Workbook
Dim path As String
path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\yaybook.xlsm"
ThisWorkbook.SaveAs path, FileFormat:=52
Set wbk = Workbooks.Open(path)
wbk.Sheets(1).Name = "FUNCIONARIOS"
End Sub
Everything works, so we might be missing details

Answer 2

Don't want to Hijack Doug's answer, so here's a way to test:
Try comment out the second part of your code - leave the "saveas" and
run. After finish go check your file in the destination path - see if
you can open it successfully by manual.
Now in a NEW sub open up this file by code. Do NOT set the sheet name yet. Let
us know the result
Edit:
Try saving the worksheet to a new workbook and save the new workbook:
Sub test()
Dim wbk As Workbook
Dim nwb As Workbook
Dim path As String
path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\"
Set wbk = ThisWorkbook
Set nwb = Workbooks.Add
wbk.Sheets("Sheet1").Copy before:=nwb.Sheets(1)
nwb.SaveAs path & "test2.xlsx"
End Sub
Update "Sheet1" to whatever worksheetname you're saving