Creating sheets with weekly dates

Question

I have 52 sheets created and need to date each one with Sundays date for every week in 2023. How can I do this without changing each name individually?

I found several macros that work for creating a daily sheet, but I need to be able to have only Sundays dates.

Answer 1

Here is a macro.

Remarks:

• You can use a different date format of course, but you cannot use / in the format; slashes aren't allowed in worksheet names.
• Sunday December 31, 2023 is not included since it is the 53rd Sunday in 2023. Sub NameSheets() Dim i As Long Dim d As Date Application.ScreenUpdating = False d = DateSerial(2023, 1, 1) For i = 1 To 52 Worksheets(i).Name = Format(d, "d-mmm-yyyy") d = d + 7 Next i Application.ScreenUpdating = True End Sub

Answer 2

Worked perfectly. Any minor adjustments needed I have been able to do. Thank you for your quick reply and help.