For Each sht In Sheets
With sht.PageSetup
.Orientation = xlLandscape
.Zoom = 58
End With
End Sub

"Jerry" wrote:

I have a worksheet with about 70 tabs. Each tab is labeled with last names.
I want to change the page setup for all of them tothe following settings:
Landscape, 58% fitting and zero margins al around. I setup a macro but that
means I have to go to each tab and execute it, is there a way to automate the
process to run it for all tabs instead of one by one? Thanks in advance.