Try the below code.

It first collects all of the sheet  names in the active workbook.
Then it loops around each workbook that's open  and looks for those
names.
If it finds one it runs subPrintSheet.

I've compiled but not really tested this code. If you find  it works or
not get back  anyway. If it don't work I'll look further.