You are using the wrong property of the worksheet.If instr(WBook.Sheets(i).Name, "Exec ") Then WBook.Sheets(i).PrintOutCopies:=1Try this and see if it works.