At least do it for the selected sheets if multiple sheets are grouped
(and the activesheet if not)...

Dim wsSheet As Worksheet
For Each wsSheet In ActiveWindow.SelectedSheets
With wsSheet.PageSetup
'Do stuff
End With
Next wsSheet

In article ,
"Bob Phillips" wrote:

Rather than do it for every worksheet, just do it for the activesheet. It is
not necessary to do all of them.