Function test1()
Dim HPCount As Long, DPB As Boolean, PBP As Long
Application.Volatile
  HPCount =  0 
  If ActiveSheet.PageSetup.PrintArea = "" Then
    DPB = ActiveSheet.DisplayPageBreaks: PBP = ActiveWindow.View
    ActiveSheet.DisplayPageBreaks = True: ActiveWindow.View = xlPageBreakPreview
    DoEvents
    HPCount = ActiveSheet.HPageBreaks.Count
    If HPCount =  0  Then
      HPCount =  1 
    Else
      If ActiveSheet.HPageBreaks(HPCount).Location.Row <> _
          (ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count) Then
        HPCount = HPCount +  1 
      End If
    End If
    ActiveSheet.DisplayPageBreaks = DPB: ActiveWindow.View = PBP
  End If
  test1 = HPCount
End Function