Sub App_FileSearch_Example()
Dim OWB As Workbook
With Application.FileSearch
.NewSearch
.LookIn = "c:\"
.fileName = "*.xls"
If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending) > 0 Then
For i1 = 1 To .FoundFiles.Count
Set OWB = Workbooks.Open(.FoundFiles(i1))
OWB.Save
OWB.Close
Next i1
End If
End With
End Sub