Sub Test()
Dim hpbs As HPageBreaks
Dim j As Long
Set hpbs = ActiveSheet.HPageBreaks
If hpbs.Count = 0 Then
MsgBox "No horizontal page breaks in active sheet"
Else
For j = 1 To hpbs.Count
MsgBox "Horizontal page break " & j & " at row: " & hpbs(j).Location.Row
Next j
End If
End Sub