Excel - Error en el método

Private Sub Cedula_AlumnoTXT_AfterUpdate()

    Dim filafinal As String

    Dim encontrar As Boolean

    If Cedula_AlumnoTXT.Value <> vbNullString And IsNumeric(Cedula_AlumnoTXT.Value) = False Then

        MsgBox ("Los datos ingresados deben ser de carácter numérico, por favor verifique y vuelva a intentarlo.")

        Cedula_AlumnoTXT.Value = ""

    Else

        Worksheets("Registro de Pagos").Activate

        filafinal = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

        encontrar = False

        For i = 2 To filafinal

             ' ---------------- El error esta aqui: vvvv

            If Cedula_AlumnoTXT.Value = Range("A" & fila).Value Then   ' <--- la variable fila no esta definida

                                                                       '      y no tiene valor.

                Nombre_AlumnoTxt.Value = Range("B" & i).Value

                PrimerApellido_AlumnoTxt.Value = Range("C" & i).Value

                Segundo_ApellidoAlumnoTxt.Value = Range("D" & i).Value

                BloqueHorariosCMB.Value = Range("F" & i).Value

                NumerodiasSemanaCMB.Value = Range("G" & i).Value

                MontoCancelarMesTXT.Value = Range("H" & i).Value

                ValorMatriculaTXT.Value = Range("I" & i).Value

                MaterialesSemes1TXT.Value = Range("J" & i).Value

                MaterialesSemes2TXT.Value = Range("K" & i).Value

                FormaPagoCMB.Value = Range("L" & i).Value

                EstadoPagoCMB.Value = Range("M" & i).Value

                MontoCancelarTXT.Value = Range("N" & i).Value

            ElseIf Range("E" & i).Value = "Mensual" Then

                HorarioMensualOPC.Value = True

            Else

                HorarioSemanalOPC.Value = False

                AgregarPagosCB.Enabled = True

                ModificarPagosCB.Enabled = False

                encontrar = True

                Exit For

            End If

        Next

        If encontrar = False Then

            Cedula_AlumnoTXT.Value = ""

            Nombre_AlumnoTxt.Value = ""

            PrimerApellido_AlumnoTxt.Value = ""

            Segundo_ApellidoAlumnoTxt.Value = ""

            BloqueHorariosCMB.ListIndex = -1

            NumerodiasSemanaCMB.ListIndex = -1

            MontoCancelarMesTXT.Value = ""

            ValorMatriculaTXT.Value = ""

            MaterialesSemes1TXT.Value = ""

            MaterialesSemes2TXT.Value = ""

            FormaPagoCMB.ListIndex = -1

            EstadoPagoCMB.ListIndex = -1

            MontoCancelarTXT.Value = ""

            HorarioMensualOPC.Value = False

            HorarioSemanalOPC.Value = False

            ModificarPagosCB.Enabled = False

            AgregarPagosCB.Enabled = True

        End If

    End If

End Sub