Name the sheet as today

[bluefeather8989]

In this code i copy and paste values from "Overview" sheet" in workbook "Race " to "History" sheet in "History" workbook. Then it copy and moves to the end then renames the copy to "999"
What i want to do is to make it rename it in today's date instead of "999"

Sub History()

Windows("Race.xlsm").Activate
Sheets("Overview").Select
    Range("A3:AT942").Select
    Selection.Copy
Workbooks.Open Filename:=ActiveWorkbook.Path & "History\History.xlsm"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A3").Select
Sheets("Race History").Select
    Application.CutCopyMode = False
    Sheets("Race History").Copy After:=Sheets(2)
    Sheets("Race History (2)").Name = "999"
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("A3").Select
End Sub

 

[texasalynn]

try this

    TDate = Format(Date, "yyyy-mmm-dd")
    Sheets("Race History (2)").Name = TDate

 

[bluefeather8989]

try this

    TDate = Format(Date, "yyyy-mmm-dd")
    Sheets("Race History (2)").Name = TDate

GREAT! This works. Have one on me