I have the following macro, which works fine except for the two lines of code
before the With.PageSetup.

Only the last row in the last worksheet in the workbook is set to bold. All
other sheets have the description TOTAL NUMBER OF SKIPS set in the last row
in Col A and a corresponding count in the last row in column b, but it is not
bolded.

Any suggestions or ideas would be appreciated.


Sub Format()
Dim wks As Worksheet
Dim lLastRow As Long
Application.ScreenUpdating = False

If ActiveSheet.Name < "MAIN" Then

For Each wks In ActiveWorkbook.Worksheets
With wks

lLastRow = wks.Range("A1").End(xlDown).Row
wks.Cells(lLastRow + 1, 1).Formula = "TOTAL NUMBER OF SKIPS"
wks.Cells(lLastRow + 1, 2).Formula = "=COUNTROWS(B:B) - 2"
lLastRow = wks.Range("A1").End(xlDown).Row
wks.PageSetup.PrintArea = "$A$1:$K$" & lLastRow
lLastRow = wks.Range("A1").End(xlDown).Row
Rows(lLastRow).Select
Selection.Font.Bold = True

With .PageSetup

Page set up code

End With
.UsedRange.Rows.AutoFit
End With
Next wks
End If

More code down here.