Boa tarde, estou com o seguinte código que é executado quando o usuário aperta enter no preenchimento de um TextBox.

Porém, o código sempre pula pro final e exibe a MsgBox "Cadastro não encontrado!".~

Estou à décadas tentando descobrir o porquê, mas não consigo.

Se alguém puder me ajudar ficaria grato!

Obrigado.

Private Sub TextBox_CodSimade_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
    
        Dim Cod As Variant
        Cod = UserForm_Expulsar.TextBox_CodSimade
        'Cod = WorksheetFunction.Trim(Cod)
      
    'Verificar se o campo está preenchido corretamente
        If Cod = "" Then
            MsgBox "Campo 'Cód. SIMADE' obrigatório!"
            UserForm_Expulsar.TextBox_CodSimade.SetFocus
            Exit Sub
        ElseIf WorksheetFunction.CountIf(Sheets("Alunos").Range("D4:D3150"), Cod) = 0 Then
            MsgBox "Nenhum aluno cadastrado com esse código. Entre com um código válido!"
            UserForm_Expulsar.TextBox_CodSimade = ""
            UserForm_Expulsar.TextBox_CodSimade.SetFocus
            Exit Sub
        End If
        
        
    'Inserir os dados do aluno nos rótulos
        Sheets("Alunos").Activate
        Range("D4").Select
        Dim count As Integer, msg As String, cel As Variant
        For count = 1 To 3150
            cel = Selection.Value
            If cel = Cod Then
                UserForm_Expulsar.Label_CodSimade = Cod
                UserForm_Expulsar.Label_Nome = Selection.Offset(0, 1)
                UserForm_Expulsar.Label_Turma = Selection.Offset(0, 6)
                'Verificar se o aluno já está expulso
                If WorksheetFunction.CountIf(Sheets("Turmas").Range("F2:F62"), Cod) > 0 Then
                    Sheets("Turmas").Activate
                    Range("F2").Select
                    Dim i As Integer
                    For i = 1 To 60
                        If Cod = Selection Then
                            msg = "Expulso até dia " & Selection.Offset(0, 1).Value
                            UserForm_Expulsar.Label_Situ = msg
                            Exit Sub
                        End If
                        Selection.Offset(1, 0).Select
                    Next i
                Else   'Não está expulso
                    UserForm_Expulsar.Label_Situ = "Não está expulso!"
                    UserForm_Expulsar.TextBox_Dias.Enabled = True
                    UserForm_Expulsar.TextBox_Dias.SetFocus
                    UserForm_Expulsar.Cmd_Expulsar.Enabled = True
                    Exit Sub
                End If
            Selection.Offset(1, 0).Select
            End If
        Next count
        MsgBox "Cadastro não encontrado!"
    End If

End Sub