VBA- Print Setting to Apply to Certain Sheets Not Working

Hi everyone:

I'm trying to apply print settings and a few other format settings (row height, hide columns, etc) to only certain sheets in my workbook. However, when I run the code, it stays on the first tab (Summary tab) and applies the code but this is a sheet that I don't want to apply my settings to.

Sub FormatSheets()

    Dim ws As Worksheet
     
    ws.Activate
    For Each ws In ActiveWorkbook.Worksheets
    Select Case ws.Name
        Case "Summary", "ARO"
        Case Else
        
        With ws.PageSetup
             
            .PrintTitleRows = "$1:$1"
            .Orientation = xlLandscape
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.75)
            .BottomMargin = Application.InchesToPoints(0.75)
            .HeaderMargin = Application.InchesToPoints(0.3)
            .FooterMargin = Application.InchesToPoints(0.3)
             
        End With
        ws.Cells.Select
        Selection.WrapText = True
        Selection.ColumnWidth = 10
        Selection.EntireRow.AutoFit
        Range("A:A,U:U,W:W,Y:Y,Z:Z,AE:AE,AG:AG,AI:AI,AJ:AJ,AP:AP").EntireColumn.Hidden = True
    
         
    End Select
    Next ws

End Sub

Any help will be appreciated!

Try:

Sub FormatSheets()

Dim ws As Worksheet

ws.Activate
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.name
Case "Summary", "ARO":GoTo NextSheet
Case Else

With ws.PageSetup

.PrintTitleRows = "$1:$1"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)

End With
ws.Cells.Select
Selection.WrapText = True
Selection.ColumnWidth = 10
Selection.EntireRow.AutoFit
Range("A:A,U:U,W:W,Y:Y,Z:Z,AE:AE,AG:AG,AI:AI,AJ:AJ,AP:AP").EntireColumn.Hidden = True


End Select
NextSheet:   Next ws

End Sub

BTW: Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I tested this version and it worked:

Sub FormatSheets()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.name
Case "Summary", "ARO"
GoTo NextSheet
Case Else

With ws.PageSetup

.PrintTitleRows = "$1:$1"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)

End With
ws.Cells.WrapText = True
ws.Columns.ColumnWidth = 10
ws.Rows.AutoFit
ws.Range("A:A,U:U,W:W,Y:Y,Z:Z,AE:AE,AG:AG,AI:AI,AJ:AJ,AP:AP").EntireColumn.Hidden = True


End Select
NextSheet:   Next ws

End Sub