Snasui Excel Forum

Code: Select all

Sub PrintAreas_UsedR()
    Dim ws As Worksheet
    Dim LastRow As Long
    'LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For Each ws In ActiveWorkbook.Worksheets
        LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
        If Not ws.Name = "Template" And Not ws.Name = "summary" Then
            ws.PageSetup.PrintArea = "A1:S" & LastRow
        End If
    Next ws
End Sub