Uh-oh!

I spoke too soon ...

It works for one sheet only. When I select multiple sheets, the first sheet splits out correctly, and then the rest are just copies of the last sheet in the workbook with cell H1 showing the correct (subject) value.

I need it to loop through the sheets I select.