المساعدة في تعديل كود التاكد من وجود الرقم

[ماجدجلال]

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

في الملف المرفق وضعت كود يقوم بكتابة الرقم المستخدم امام اسم المندوب و لكن في شيت اخري 

المشكلة انني لم اوفق في اضافة  MSGBOX  للكود تبين للمستخدم بان الرقم المحرر مستخدم مسبقا 

ارجو التكرم بتحميل المرفق و المساعدة وشكرا لكم جزيلا 

2560.rar

[ماجدجلال]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then
For i = 6 To 55
If Sheets("1").Cells(i, 1) = ActiveCell.Offset(0, -1) Then


'MsgBox "ÇáÑÞã ãÓÊÎÏã ãÓÈÞÇ"
'ActiveCell.Offset(0, -1) = ""


Sheets("1").Cells(i, 2) = ActiveSheet.Name
Exit For
ElseIf i = 55 Then
MsgBox "ÇáÑÞã ÛíÑ ãæÌæÏ"
End If
Next
End If
End Sub

هذا الكود الذي يقوم بادراج اسم المندوب في الشيت الرئيسي 

ما هي الاضافة التي تجعلة يقوم بالتحقق من عدم استخدام الرقم مسبقا 

وشكرا لكم 

[عبدالله المجرب]

السلام عليكم 

اليك الملف بعد التعديل

 

2560.rar

[ماجدجلال]

شكرا جزيلا لك استاذ عبدالله

شكرا   الله يوفقك ويسعدك 

هذا هو المطلوب

[عبدالله المجرب]

حياك الله اخي ماجد