Somthing like this maybe

Sub Find()
Dim fs As Object

Set fs = Application.FileSearch

With fs
.LookIn = "c:\my documents"
.FileType = msoFileTypeExcelWorkbooks
.Execute

End With
End Sub



" wrote:

Hello Group,

I am using

Set fs = Application.FileSearch

With fs
.......
.......
........
End With

I get "Object required" error. So, what should I dim "fs" as? Should I
need to do something like

Dim wb as workbook?
If so, then what would be
Dim fs as ?

Kevin