I am currently using this code to find and copy selected files from the folder the workbook is saved in to a new folder:

If Dir(ThisWorkbook.path & "\" & filename) <> "" Then
              FileCopy ThisWorkbook.path & "\" & filename, newpath & filename
Endif
Can this be extended to search for the file in all subfolders?