Gem fil med dato i navn

Hej,

Jeg har problemer med at få en makro til at virke. Den skal gemme filen, hvor datoen er en del af filnavnet. Håber nogen kan hjælpe.

Sub printfil()

Dim navn As String, book_name As String

book_name = ActiveWorkbook.Name
   
    Sheets(Array("File", "Specification")).Select
    Sheets(Array("File", "Specification")).Copy
    Sheets("File").Activate
    Range("A1:AB67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Specification").Activate
    Range("A1:f200").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("File").Activate
    Range("B1").Select
   
    Application.CutCopyMode = False
    'Sheets("forside").Activate
    navn = Range("sti") & Range("print_navn") & ".xls"
    ActiveWorkbook.SaveAs Filename:=navn, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Workbooks(book_name).Activate
    Worksheets("Forside").Activate
    Range("a1").Activate
    Range("J27").Select
End Sub