Renaming sheet using a cell with a date formula

[Soulence]

I have a work book that is used for inventory . The first Sheet is the usage page, on it it has dates that are monday thru friday that are auto generated with a formula (=IF(WEEKDAY(F5,2)=5,F5+3, F5+1)).
Im having to change the sheet names that follow to coincide with the dates shown (01, 02, 03...ect...) each sheet is a inventory page and has a formula for a date which corresponds to first sheet date. (='July 2023'!$F$5)) . Is there a way to name the sheet to coincide with the date that is populated from the formula shown? (Example: July 01)/

 

[Joe4]

Welcome to the Board!

Yes it is possible to do with VBA.
But I am little unclear on some of the details.

How many sheets are in the workbook total?
What is the exact range that you want to use for each of the sheet names?

 

[Soulence]

Welcome to the Board!

Yes it is possible to do with VBA.
But I am little unclear on some of the details.

How many sheets are in the workbook total?
What is the exact range that you want to use for each of the sheet names?

there are 32 sheets in the book, the first page is monthly usage form and is named the month of the year, the rest of the pages correspond to the dates of monday through friday. each sheet already generates a date ate the top of the page (A3) that is pulls from the first page (='July 2023'!$F$5). my question is how can i automatically name the page from the date generated in A3 in (MM-YYYY))
the first page generates the date of the week M-F with (=IF(WEEKDAY(F5,2)=5,F5+3, F5+1)) I have been manually renameing the sheets to correspond to the date of M_F for the enitre month.

 

[Joe4]

Try this:

Sub RenameSheets()

    Dim i As Long

'   Loop through sheets 2 to 32
    For i = 2 To 32
        Sheets(i).Name = Format(Sheets(i).Range("A3"), "mm-yyyy")
    Next i
    
End Sub

 

[Soulence]

it worked... Thank you!

 

[Joe4]

You are welcome.
Glad I was able to help!