Page number for cell

GetCellPage.excel.vba

Function GetCellPage(ra As range) As Long
    Dim ws As Worksheet
    GetCellPage = 0
    Set ws = ra.Parent
    Dim iRow As Long
    
    If ws.HPageBreaks.Count > 0 Then
        iRow = ra.Row
        Do
            GetCellPage = GetCellPage + 1
            If GetCellPage > ws.HPageBreaks.Count Then
                Exit Do
            End If
        Loop While ws.HPageBreaks.Item(GetCellPage).Location.Row <= iRow
    End If
End Function