Public Sub PageNumner()
    Dim VPB As Excel.VPageBreak
    Dim HPB As Excel.HPageBreak
    Dim intVPBC As Integer
    Dim intHPPC As Integer
    Dim lngPage As Long
    
    lngPage =  1 
    
    If Activesheet.PageSetup.Order = xlDownThenOver Then
        intHPPC = Activesheet.HPageBreaks.Count +  1 
        intVPBC =  1 
    Else
        intVPBC = Activesheet.VPageBreaks.Count +  1 
        intHPPC =  1 
    End If

    For Each VPB In Activesheet.VPageBreaks
        If VPB.Location.Column > ActiveCell.Column Then
            Exit For
        End If
        
        lngPage = lngPage + intHPPC
    Next VPB
    
    For Each HPB In Activesheet.HPageBreaks
        If HPB.Location.Row > ActiveCell.Row Then
            Exit For
        End If
            
        lngPage = lngPage + intVPBC
    Next HPB
    
    MsgBox "Номер страницы активной ячейки = " & lngPage
End Sub