récupération de la date dans le titre du fichier

Option Explicit
Sub Nom_fichier_date_récupérer()
    Dim nom
    Application.ScreenUpdating = False
    nom = ThisWorkbook.Name
    With Sheets("Feuil2")
        .Cells.Clear
        Sheets("Feuil1").Range("a1").CurrentRegion.Copy .Range("b1")
        .Range("a2").Value = nom: .Range("a2").Value = Left(nom, 10)
        .Activate
        .Range("a1") = "date"
        With .Range("a3:a" & Cells(Rows.Count, 2).End(xlUp).Row)
            .Value = Range("a2")
            .NumberFormat = "m/d/yyyy"
        End With
    End With
    Application.ScreenUpdating = False
End Sub