Return value in cell if there is a page break above

[ExcelDane]

Hi everybody

I need to be able to locate page breaks in a sheet automatically by returning a value in a cell if there is a page break above.
E.g. if there is a page break between row 3 and 4, I need cell A4 to return a value like "Page break".

I take it there must be a smart way to do this, maybe with a custom vba function. However, I haven't been able to google my way to a solution.

Thanks in advance!

 

[Andrew Poulsom]

Try this:

Function PB(Cell As Range) As String
    Dim HPB As HPageBreak
    PB = ""
    For Each HPB In Cell.Parent.HPageBreaks
        If Not Application.Intersect(Cell, HPB.Location.EntireRow) Is Nothing Then
            PB = "Page Break"
            Exit For
        End If
    Next HPB
End Function

Usage =PB(A1).

 

[ExcelDane]

Excellent!
Thanks a lot!