تحديد القيمة العظمى و الدنيا لخانة في شيت عن طريق vba

[صالح حمادي]

السلام عليكم ورحمة الله و بركاته أخوتي الكرام حياكم الله.

أبحث عن الكود الذي يمكنني من تعيين القيمة الدنيا و القيمة العضمى لخانة أو عمود في الأكسل.

يعني إذا وضعت رقما أكبر أو أقل يظهر رسالة خطأ على سبيل المثال أكبر قيمة 20 و أصغر قيمة 0 لا يجب أن تكون قيمة الخلية خارج هذا المجال.

و لكم جزيل الشكر و جزاكم الله كل الخير.

[عبدالسلام ابوالعوافي]

[صالح حمادي]

لك جزيل الشكر أخي عبد السلام.

لكن أنا أريد أن أعملها بكود vba

[عبدالسلام ابوالعوافي]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Or Target = "" Then Exit Sub
    If Target < 10 Or Target > 20 Then
        MsgBox "يجب ادخال قيمة بين 10 و 20"
        Target = ""
        Target.Select
    End If

End Sub

تضع الكود في حدث ورقة العمل .. في العمود B يجب ادخال قيمة بين 10 و 20 

[صالح حمادي]

بارك الله فيك يا أخي الكريم