Open file and run macro based on partial file name

Thank you fluffy, that indeed, solved my problem. But now I get an runtime-error 13 on this line:

Workbooks(WB).Close SaveChanges:=False