Adjust individual sheet margins to a master sheet

[claudehollett]

I need to adust all margins for a series of worksheets to the margins of an existing "Master" sheet. What code will do this? Thank you, Claude

 

[Macropheliac]

I think this will do it. It is untested.

Sub Adjust_Margins()
Dim Mysheet As Worksheet
Dim Sht As Worksheet

Set Mysheet = Sheets("Master")  'Adjust as necessary

For Each Sht In ActiveWorkbook.Sheets
        With Sht.PageSetup
                .LeftHeader = Mysheet.PageSetup.LeftHeader
                .CenterHeader = Mysheet.PageSetup.CenterHeader
                .RightHeader = Mysheet.PageSetup.CenterHeader
                .LeftFooter = Mysheet.PageSetup.LeftFooter
                .CenterFooter = Mysheet.PageSetup.CenterFooter
                .RightFooter = Mysheet.PageSetup.RightFooter
                .LeftMargin = Mysheet.PageSetup.LeftMargin
                .RightMargin = Mysheet.PageSetup.RightMargin
                .TopMargin = Mysheet.PageSetup.TopMargin
                .BottomMargin = Mysheet.PageSetup.BottomMargin
                .HeaderMargin = Mysheet.PageSetup.HeaderMargin
                .FooterMargin = Mysheet.PageSetup.FooterMargin
        End With
Next Sht

End Sub

 

[claudehollett]

I think this will do. Thank a lot, Claude

 

[HalfAce]

If you want to set the margins of all worksheets in the workbook the same as the Master sheet's then Macropheliac should have you ready to go.
If you only want to do it to specified sheets then something like this should do it.

Sub SetMarginsDemo()
Dim ThisSht As Worksheet

For Each ThisSht In ThisWorkbook.Worksheets
  Select Case ThisSht.Name
    Case "Sheet2", "Sheet4", "Sheet6", "Sheet8"
      With ThisSht.PageSetup
        .TopMargin = Sheets("Master").PageSetup.TopMargin
        .BottomMargin = Sheets("Master").PageSetup.BottomMargin
        .Leftmargin = Sheets("Master").PageSetup.Leftmargin
        .RightMargin = Sheets("Master").PageSetup.RightMargin
      End With
  End Select
Next ThisSht

End Sub