Rename multiple Worksheets by a cell value (Date)

[benlong]

Hi all,
I tried to google a day to solve this issue but it did not work. Can anyone help me to give me a solution, please?
How can I rename multiple worksheets (from sheet2) from a column value (Date) as the photo attached by using VBA code?
Thank you.

 

[Joe4]

Welcome to the Board!

Are there already enough tabs (worksheets) in the workbook to accomodate all the dates?
Are we always going to start with the second sheet, and will the existing sheets always be named 1,2,3,...?

 

[benlong]

Welcome to the Board!

Are there already enough tabs (worksheets) in the workbook to accomodate all the dates?
Are we always going to start with the second sheet, and will the existing sheets always be named 1,2,3,...?

Hi Joe
yes, all dates have enough tabs to match them.
The original name of the tabs which are sheet1, sheet2, sheet3,...

 

[Joe4]

Try this:

Sub MyRenameSheets()

    Dim s As Long
    Dim lr As Long
    Dim r As Long

'   Find the last row in column A with data
    lr = Sheets("Fill-In").Cells(Rows.Count, "A").End(xlUp).Row
    
'   Initialize first sheet to rename
    s = 2
    
'   Loop through all rows with data on Fill-In sheeting start in A20
    For r = 20 To lr
        Sheets(s).Name = Format(Sheets("Fill-In").Cells(r, "A"), "dd-mm-yy")
        s = s + 1
    Next r
    
End Sub

 

[benlong]

you are legend
it works

Thanks a lot

 

[Joe4]

You are welcome.
Glad I was able to help!