Открыть последний файл, сохраните базу на дату создания, НЕ последние изменения

Question

Я новичок в VBA, в настоящее время я видел способ открыть базу книг на дату создания, я нашел несколько кодов, но это открытое последнее сохранение книги или последнее изменение файла, иногда последние файлы не являются книгой, которую я нужно, и я хотел бы заменить от последнего файла сохранения до даты создания.

Ниже приведен пример кода, я нашел.

Sub NewestFile()

    Dim MyPath As String
    Dim MyFile As String
    Dim LatestFile As String
    Dim LatestDate As Date
    Dim LMD As Date

    MyPath = "C:\Users\Documents\"
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    MyFile = Dir(MyPath & "*.xls", vbNormal)

    If Len(MyFile) = 0 Then
        MsgBox "No files were found...", vbExclamation
        Exit Sub
    End If

    Do While Len(MyFile) > 0
        LMD = FileDateTime(MyPath & MyFile)

        If LMD > LatestDate Then
            LatestFile = MyFile
            LatestDate = LMD
        End If
        MyFile = Dir
    Loop

    Workbooks.Open MyPath & LatestFile

End Sub