Eingabe in aktiver Zelle auf Gültigkeit überprüfen

Bezogen auf einen bestimmten Bereich im VBA-Projekt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D3:D5,E3:E5")) Is Nothing Then
If Target.Value > 0 Then
If Target.Value < 0.82 Then
MsgBox "Bitte........"
End If
End If
End If
End Sub