Hi Gang,

I have set up a macro to set the print area for multiple sheets in an array. I am a noob so I likely messed this up.

It appears to only set the print area correctly for the first sheet, and then does not set it for others. Can anyone point out how to fix my code? Thank you!

Sub FormatSection()
'
' FormatSection Macro
Dim ws As Worksheet, LstRw As Long

For Each ws In Sheets(Array("1 - Site", "2 - Building Exterior", "3 - Building Interior", _
                            "4 - Structural", "5 - Mechanical", "6 - Electrical"))
Dim lastCell As Range
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0)
Do Until Application.Count(lastCell.EntireRow) <> 0
Set lastCell = lastCell.Offset(-1, 0)
Loop
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address

    Next ws
    Range("A1").Select
End Sub