Sub FIND_NEWEST_FILE()
Dim MyFolder As String
Dim MyFileName As String
Dim MyDateTime As Date
Dim NewestFile As String
Dim NewestDateTime As Date
MyFolder = CurDir & "\"
'---------------------------
MyFileName = Dir(MyPath & "*.XLS")
Do While MyFileName <> ""
MyDateTime = FileDateTime(MyFolder & MyFileName)
If MyDateTime > NewestDateTime Then
NewestDateTime = MyDateTime
NewestFile = MyFileName
End If
MyFileName = Dir
Loop
'MsgBox (NewestFile & vbCr & NewestDateTime)
Workbooks.Open FileName:=MyFolder & NewestFile
End Sub