Rename the last spreadsheet name based on previous date VBA

[Panoos64]

Hi to all of you!
I would like to use a VBA code so that to rename the last spreadsheet's name which is "Checkin" and is in the right, into date based on previous spreadsheet.
E.g. Previous spreadsheet date: 16.07.23
Spreadsheet name "Checkin" rename to 17.07.23
Thank you all in advance

 

[Peter_SSs]

Try this

Sub Name_Last_Sheet()
  Sheets(Sheets.Count).Name = Format(DateValue(Replace(Sheets(Sheets.Count - 1).Name, ".", "/")) + 1, "dd.mm.yy")
End Sub

 

[Panoos64]

Try this

Sub Name_Last_Sheet()
  Sheets(Sheets.Count).Name = Format(DateValue(Replace(Sheets(Sheets.Count - 1).Name, ".", "/")) + 1, "dd.mm.yy")
End Sub

Thank you Peter! It works perfect and according to my data. Hv a great day!!

 

[Peter_SSs]

You're welcome. Thanks for the confirmation.