Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim say As Integer
    Dim sayi As Integer
    Dim adr As VPageBreak
    Dim hcr As HPageBreak
    Dim ilkSNo As Integer
    sayi = 1
    say = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
       
    Else
        say = ActiveSheet.VPageBreaks.Count + 1
    End If
    ilkSNo = 1
    For Each adr In ActiveSheet.VPageBreaks
        If adr.Location.Column > ActiveCell.Column Then Exit For
        ilkSNo = ilkSNo + sayi
    Next
    For Each hcr In ActiveSheet.HPageBreaks
        If hcr.Location.Row > ActiveCell.Row Then Exit For
        ilkSNo = ilkSNo + say
    Next
    Range("AK11").NumberFormat = "@"
    Range("AK11") = ilkSNo & " / " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub




İşaretli kodda hata veriyor.