Plz Additional help.... I am have problem run both suggestions with 1st reply it is erroring out on

Set Folder = FSO.GetFolder(sPath)

and on the second reply I am erroring out on

With Application.FileSearch

I am using excel 2007.