Sub JEC()
c00 = "C:\Users\xxx\Downloads\"
Ldate = DateSerial(2021, 8, 5) 'set your lower date boundary
Udate = DateSerial(2021, 8, 27) 'set your upper date boundary
Set xfolder = CreateObject("scripting.filesystemobject").getfolder(c00).Files
ReDim ar(xfolder.Count, 1)
For Each it In xfolder
If Int(it.datecreated) >= Ldate And Int(it.datecreated) <= Udate Then
ar(x, 0) = it
ar(x, 1) = Int(it.datecreated)
x = x + 1
End If
Next
Sheets(1).Cells(1).Resize(x, 2) = ar
End Sub
JEC, Thankyou very much for the VBA code, it works very fast; again much appreciated!Sub JEC() c00 = "C:\Users\xxx\Downloads\" Ldate = DateSerial(2021, 8, 5) 'set your lower date boundary Udate = DateSerial(2021, 8, 27) 'set your upper date boundary Set xfolder = CreateObject("scripting.filesystemobject").getfolder(c00).Files ReDim ar(xfolder.Count, 1) For Each it In xfolder If Int(it.datecreated) >= Ldate And Int(it.datecreated) <= Udate Then ar(x, 0) = it ar(x, 1) = Int(it.datecreated) x = x + 1 End If Next Sheets(1).Cells(1).Resize(x, 2) = ar End Sub