Finde nyeste Excel-fil en en given folder

Hvis denne kode indsættes i ThisWorkbook i en fil. Stien til mappen skal ændres:

Sub workbook_activate()
Dim xsti, myFolder
Dim fs, f, f1, fc, nyesteDato As Date, nyesteFil As String

    xsti = ActiveWorkbook.Path      'skal ændres!!
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
    nyesteDato = 0
    nyesteFil = ""
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(xsti)
    Set fc = f.Files
    For Each f1 In fc
        If Right(LCase(f1.Name), 3) = "xls" Then
            x = f1.Name
            If nyesteDato = 0 Then
                nyesteDato = f1.datecreated
                nyesteFil = f1.Name
            Else
                If f1.datecreated > nyesteDato Then
                    nyesteDato = f1.datecreated
                    nyesteFil = f1.Name
                End If
            End If
        End If
    Next
   
    MsgBox ("Nyeste fil: " + nyesteFil)
    Workbooks.Open xsti + nyesteFil
End Sub

Det virkede bare perfekt. Tusind tak for hjælpen. Smider du lige et svar....?

Selv tak - her er et svar