Forum Discussion
Solved
How to rename the worksheet tabs
Hi, I need to create a macro to rename the existing worksheets with the date values on the cells A4:A26. I know there is a way through VBA coding, but I am struggling on how to create it. I ...
If you save the workbook with the original sheet names Sheet1, Sheet2 etc. as a macro-enabled template (.xltm), you can create a new workbook from the template each month.
(You could also save the workbook under a new name at the end of the macro, so that the original remains unchanged)
Try this. Warning: you can run the macro only once.
Sub RenameSheet()
Dim i As Long
Dim n As Long
For i = 1 To 23
On Error Resume Next
Worksheets("Sheet" & i).Name = Format(Worksheets("Daily Totals").Range("A" & i + 3), "Short Date")
If Err Then
n = n + 1
Worksheets("Sheet" & i).Name = "NotUsed" & n
End If
Next i
End Sub