Sub SetPropTests() Dim pt As PropertyTests Dim I As Integer
Set pt = Application.fileSearch.PropertyTests
With pt
For I = .Count To 1 Step -1
.Add name:=" Last Modified", _
Condition:=msoConditionOnOrAfter, _
Value:=DateAdd("d", -7, Date)
Next I End With End Sub