Subscript Out of Range typically means that the code is
looking for a specifically named object and it's not
available. Looking at your code I would start by making
sure that each of the sheet names in your array actually
exists in the workbook containing the code. Spaces count,
so also make sure there are no trailing spaces in any of
the sheet names.

tod


-----Original Message-----
When I open this workbook, I get an error message (Run-
time error '9': Subscript out of range.) on the following
line of code:

For Each WS In ThisWorkbook.Sheets(Array
("Rationale11", "Rationale12", "Rationale13", "Rationale21"
, "Rationale22", "Rationale23", "Rationale31", "Rationale32
", "Rationale33", "Rationale41", "Rationale42", "Rationale4
3"))

Can someone suggest a fix?

Thanks, Phil
.