vba Excel Pages Counter

VBA Code:

Public Sub CountPages()
    Dim book As Workbook
    Set book = ActiveWorkbook
    
    Dim sheet As Worksheet
    Dim r As Integer
    Dim c As Integer
    Dim x As Integer
    
    Dim PageCount As Integer
    Dim sheetCount As Integer
    Dim buffer As String

    For Each sheet In book.Sheets
        If sheet.Visible Then
            r = sheet.HPageBreaks.count + 1
            c = sheet.VPageBreaks.count + 1
            x = r * c

            '=================================
            sheetCount = sheetCount + 1
            PageCount = PageCount + x
            '=================================

            Application.StatusBar = sheet.name & ".PageCount=" & x
            buffer = buffer & sheet.name & ".PageCount=" & x & vbCrLf
            DoEvents
        End If
    Next
    
    MsgBox "SheetCount:" & sheetCount & ", TotalPageCount=" & PageCount & vbCrLf & buffer

End Sub