Layout of worksheet

[CThai]

I want to set all the worksheets in the workbook to 1 page... below is the code that i have, but it's not working ???? can some one please tell me what i did wrong?

Sub layout()
Dim wb As Workbook
Dim sh As Worksheet

Set wb = ThisWorkbook

For Each sh In wb.Worksheets
    With sh.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(0.1)
        .BottomMargin = Application.InchesToPoints(0.1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
Next sh
End Sub

 

[klb]

Add
.Zoom = False

before
.FitToPagesWide = 1

 

[CThai]

Hi Klb-

thanks for the help! now it works