Jean-Marc,

You'll have to use the ActiveWindow property of the Excel.Application class to iterate through the multiple sheet selection (effectively a "group edit") you've set up. Here's how you might do that:

dim wks as Worksheet

Sheets(Array
("Finalised", "Swanley", "Plant", "STRTU")).Select

for each wks in ActiveWindow.SelectedSheets
with wks.PageSetup