Macro to copy two Sheets matching Source to each workbook in matching Destination Folder

Change this:

Set wbsrc = Workbooks.Open(sPath & pary(i) & Dir(sPath & pary(i) & "\*.xl*"))

to this:

Set wbsrc = Workbooks.Open(sPath & pary(i) & "\" & Dir(sPath & pary(i) & "\*.xl*"))