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