Apply same margin to all sheets without changing page orientation

Question

Hello,

I normally select all worksheets in a workbook then change the margins. Unfortunately, that also makes the page orientation of the current page the orientation to all other worksheets.

Is there a way in which I can apply customized margins that will apply to all pages, but keep the page orientation intact?

If not, is there a way I can apply the new margins only to the pages with the same orientation only?

Thanks a bunch.

Answer 1

Using CTRL + Click you can select just the sheets with the same orientation which..........assuming you know which are which.

Or you could use VBA to cycle through the sheets applying your new margins without affecting orientation.

Sub marg()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

 With ws.PageSetup

        .LeftMargin = Application.InchesToPoints(1.75)

        .RightMargin = Application.InchesToPoints(1.75)

        .TopMargin = Application.InchesToPoints(2.25)

        .BottomMargin = Application.InchesToPoints(1.25)

        .HeaderMargin = Application.InchesToPoints(0.5)

        .FooterMargin = Application.InchesToPoints(0.5)

 End With

 Next ws

End Sub

Gord

Answer 2

Good to hear.

Glad you were able to work around the extra "which" in the instructions<g>

Gord

Answer 3

Yup, that'll do it!

Thanks a bunch.