Your code uses Application.FileSearch, which is not supported by either Office 2007 or Office 2010. Accordingly, that part of your code will have to be re-written. See the discussion at: http://answers.microsoft.com/en-us/o...8-84f28300dba4. You can download the class file referred to there from: http://dl.dropbox.com/u/35239054/FileSearch.cls

PS: When posting code, please use the VBA button to apply formatting tags around it. They'll give your code a proper structure that makes it easier to read.