Run time error 445 "object doesn't support this action"

[afzalw]

I downloaded sample sheet in this link and when I try to run it gives the following error Run time error 445 "object doesn't support this action"

http://www.vbaexpress.com/kb/getarticle.php?kb_id=800

[patel]

Application.FileSearch (http://vbadud.blogspot.com/2008/06/search-and-open-files-using-excel-vba.html) didn't work in Office 2007 (It has been deprecated from Office 2007) and hence it doesn't work in Office 2010 either. It will throw Run-time Errror 445 Object doesn't support this action

http://vbadud.blogspot.it/2010/02/office-2010-applicationfilesearch-error.html

[afzalw]

Is there any alternative of Application.FileSearch or any other code I can use to search specific extension files and get their path in a variable.

[patel]

alternatives are indicated on above attached link