Hallo Mucki,
du kannst über die WorkSheets im ActiveWorkBook iterieren und so auf jedes WorkSheet zugreifen - nicht nur auf das ActiveWorkSheet:
Delphi-Quellcode:
var
i: Integer;
xl: TExcelApplication;
begin
for i := 1 to xl.ActiveWorkBook.WorkSheets.Count do
xl.ActiveWorkBook.WorkSheets.Item(i).PageSetup.RightFooter := '&P';
end;
Getippt und nicht getestet.
Grüße vom marabu