VBA: Rename File When Excel is still/Keep Opening

[HansV]

I have Excel 2021 too...

[snb]

You can use this code in any Workbook.
You can use a file containing this code as a template for any new workbook.

Code: Select all

Private Sub Workbook_Open()
  c00 = CreateObject("scripting.filesystemobject").getbasename(ThisWorkbook.FullName)
  ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & IIf(InStr(c00, "_"), Left(c00, InStr(c00, "_")) & Format(Val(Right(c00, 3)) + 1, "000"), c00 & "_000"), ThisWorkbook.FileFormat
End Sub

[HansV]

Susant wrote that they want to use the code in an add-in.