claudehollett
Board Regular
- Joined
- Dec 11, 2003
- Messages
- 89
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
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
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