Close and rename

[KreshBell]

I have a macro that is fine with me. Saves the existing file as a new one and renames it.

Sub rename()
    F$ = ActiveWorkbook.Path & ActiveWorkbook.Sheets(1).["\"&AB2&"_"&U2&"_"&AA2&"_"] & ActiveSheet.Name & ".xlsx"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs F, 51
    Application.DisplayAlerts = True
End Sub

I wonder if it is possible to create a macro that will close and rename the existing file in the same way?

 

[Marc L]

Try SaveCopyAs rather than SaveAs …​

​

 

[KreshBell]

I use xlsb file for save macros

 

[Marc L]

Just use SaveCopyAs rather than SaveAs …​

​

 

[KreshBell]

unfortunately, it not works

 

[vletm]

KreshBell​

It could work, if You'll use as it should do ...

Workbook.SaveCopyAs method (Excel)

Office VBA reference topic

learn.microsoft.com

 

[Marc L]

The message is obvious : it can't work with the same arguments so maybe​

just looking at the SaveCopyAs VBA help in order you can see how it works …​

​