Henrique o ideal seria vc postar sua planilha ou um exemplo. de qq forma segue um exemplo:
Para testar, digite qualquer valor abaixo de 5 no intervalo [B2 : F2].

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:F2")) Is Nothing Then ' altere o intervalo das suas celulas
If Target.Value < 5 Then
MsgBox "Com a nota " & Target.Value & " voce já está Reprovado! ", 64, "Atenção"
End If
End If
End Sub

"Henrique o ideal seria vc postar sua planilha ou um exemplo. de qq forma segue um exemplo:
Para testar, digite qualquer valor abaixo de 5 no intervalo [B2 : F2]."
Alguma idéia de como te mandar minha planilha?

Basole

Me ajudou bastante, amigo. Será que seria possível substituir os valores " < 5" e " > 1 " que informaste no código por células da planilha, como a B1, por exemplo? E essa substituição seria possível também com o termo "Target.Value" que aparecerá na MSgBox pela célula C1?

Segue as alterações solicitadas:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sNtMin As String: sNtMin = Range("B1").Value
    Dim sNota As String: sNota = Range("C1").Value

    If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("B2:F2")) Is Nothing Then    ' altere o intervalo das suas celulas
        If Target.Value < sNtMin Then
            MsgBox "Com a nota " & sNota & " voce já está Reprovado! ", 64, "Atenção"
        End If

    End If

End Sub

Obrigado!