Naming a workbook as the current date

Hey all,

I have an excel workbook, that I want to be saved as with the filename being the current date. I can't seem to get it. Help please!

Sub Backup()
  
    ChDir "C:\Users\T431MIH001\Pictures\C9"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\T431MIH001\Pictures\C9\Date", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    StartTimer  ' Reschedule the procedure
End Sub