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)
I hope the below code helps you out.
Public Sub CopySheetAndRename()
Dim newName As String
On Error Resume Next
newName = InputBox("Enter the name for the copied worksheet")
If newName <> "" Then
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = newName
End If
End Sub
- Hello AlwinAlexander
Thank you for replying and giving me the code, but that is not what I am trying to accomplish. All I need is a macro to automatically to rename existing worksheet tabs each month from the date values A4:A24 on the worksheet named "Daily Totals". Also the format should be "m.d". I attached the worksheet on my first post. I hope you can retrieve it.Here is a new version. You should now be able to run the code multiple times.
