There are probably better ways to do this, but here is what I came up with in a couple of minutes:

Sub CreateNewFromTemplateFile()

    Dim TemplateFilePath As String
    Dim TemplateFileName As String
    Dim DestinationFilePath As String
    Dim DestinationFileName As String
    Dim Sht As Worksheet
    Dim ShtCount As Integer
    
    On Error GoTo Err_Handler
    
    TemplateFilePath = "C:\Your Template Folder\"
    TemplateFileName = "Template File.xlsm"
    DestinationFilePath = "C:\Your Archive Folder\"
    DestinationFileName = "Archive File"
    
    Workbooks.Open TemplateFilePath & TemplateFileName
    
    For Each Sht In Workbooks(TemplateFileName)
        Sht.Name = Format(DateAdd("d", 8 - Application.Weekday(Date, 2) + ShtCount, Date), "yyyy-mm-dd")
        ShtCount = ShtCount + 1
    Next Sht
    
    Workbooks(TemplateFileName).SaveAs DestinationFilePath & DestinationFileName & Format(DateAdd("d", 8 - Application.Weekday(Date, 2), Date), "yyyy-mm-dd"), xlOpenXMLWorkbookMacroEnabled
    
Exit Sub
Err_Handler:
    MsgBox ("Error number " & Err.Number & ": " & Err.Description)
End Sub