fld = Chr(34) & ThisWorkbook.Path & "\Test Folder\*.xl*" & Chr(34)