Formula to return row number of page breaks

[ardykav]

I am looking to implement some headers on the basis of where page breaks are positioned on a sheet.

Is there a formula or VBA to return row values of where page breaks are located?

thanks

 

[pgc01]

Hi

Try:

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

 

[ardykav]

That is great thanks so much, is there a way to put the message in the row that it is in? Or even just words like "there is a page break on this row"?