Sub GetMostRecentFile()
'macro to get all the dates of each file
'requires reference set to Microsoft Scripting runtime
Dim FileSys As FileSystemObject
Dim objFile As File
Dim myFolder
Dim i As Integer
'set path for files - change for your folder
Const myDir As String = "C:\Temp\"
'set up filesys objects
Set FileSys = New FileSystemObject
Set myFolder = FileSys.GetFolder(myDir)
'loop through each file and get date last modified. Output on WorkSheet
i = 1
For Each objFile In myFolder.Files
With ThisWorkbook.Sheets("Sheet1") 'change for your sheet name
.Cells(i, 1) = objFile.Name
.Cells(i, 2) = objFile.DateLastModified
i = i + 1
End With
Next objFile
Set FileSys = Nothing
Set myFolder = Nothing
End Sub