Sub HowManyPagesBreaks()
    Dim iHpBreaks As Integer, iVBreaks As Integer
    Dim iTotPages As Integer
    iHpBreaks = ActiveSheet.HPageBreaks.Count + 1
    iVBreaks = ActiveSheet.VPageBreaks.Count + 1
    iTotPages = iHpBreaks * iVBreaks
    MsgBox "This sheet will require " & iTotPages & " page(s) to print", vbInformation, "emc.com"
End Sub