Help with sheet renaming macro please

[kbriaz]

Sub RenameSheet()

Dim CurrentDate As Variant
Dim NewName As String
CurrentDate = Format(Now(), "dd-mmm-yyyy")

Sheets("Sheet1").Select
Sheets("Sheet1").Name = Test1 - CurrentDate
Sheets("Sheet2").Select
Sheets("Sheet2").Name = Test2 - CurrentDate
Sheets("Sheet3").Select
Sheets("Sheet3").Name = Test3 - CurrentDate

End Sub

Hi,

Excel noob here, can someone please help with above code ?

I want to re-name Sheet1 to Test1 - Todays date

It seems to debug.

Many thanks for your help - ta

[ragavan.sridar1]

Try this code.

Sub RenameSheet()

Dim CurrentDate As Variant
Dim NewName As String
CurrentDate = Format(Now(), "dd_mmm_yyyy")

Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Test1 - " & CurrentDate
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Test2 - " & CurrentDate
Sheets("Sheet3").Select
Sheets("Sheet3").Name = "Test3 - " & CurrentDate

End Sub

[kbriaz]

Try this code.

Sub RenameSheet()

Dim CurrentDate As Variant
Dim NewName As String
CurrentDate = Format(Now(), "dd_mmm_yyyy")

Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Test1 - " & CurrentDate
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Test2 - " & CurrentDate
Sheets("Sheet3").Select
Sheets("Sheet3").Name = "Test3 - " & CurrentDate

End Sub

Thank you very much. Great help. Ta