Sub SetFileTypes() Dim ft As FileTypes Dim I As Integer Set ft = Application.fileSearch.FileTypes With ft .Add msoFileTypePowerPointPresentations .Add msoFileTypeExcelWorkbooks .Add msoFileTypeWordDocuments End With End Sub