السلام عليكم
===========
عزيزى ابو فيصل
الكود سيصبح على الصورة
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng1 As Range
Set Rng1 = Range("d3")
If Intersect(Target, Rng1).Value < 5 Then
MsgBox (" stock is not enough to complete the order")
End If
End Sub
غيرت لك القيمة الى 5 حتى تشعر بالتغير بالكود
New ورقة عمل Microsoft Excel.rar