Find and replace sheet names

[mccdaddy]

Hi. I have a workbook with a sheet for each month so they're named 1.2023 thru 12.2023. I want to update the sheet names for 2024. Must I select each tab and rename them or is there a way to do a Find and Replace from 2023 to 2024? I see information about replacing sheet names in formulas but nothing about the tabs themselves.

Thanks for any help.

 

[dreid1011]

If VBA is an option, you could try this code in the Worksheet module:

Private Sub UpdateSheetNames()
Dim s As Worksheet
For Each s In Sheets
    s.Name = Replace(s.Name, "2023", "2024")
Next s
End Sub

 

[mccdaddy]

I have very little experience with VBA. I pasted your code in a module and saved it with an .xlsm extension but when I go to run the macro no name appears. What am I doing wrong?

 

[dreid1011]

Place the code in the "ThisWorkbook" module

Put your cursor right before the "Private Sub" and click the green "Run Sub/Userform" button.

 

[dreid1011]

Actually, I suppose the module doesn't matter. Just click the green "run sub" button with your cursor at the top of the sub.

 

[MARK858]

I go to run the macro no name appears. What am I doing wrong?

Place the code in a regular module and remove the word Private and it will appear in your macro list

 

[mccdaddy]

Removing Private did the trick (I told ya my experience was limited). Thank you all so much for your guidance.