مبدع دائماً وأبداً أخي أبو عبدالله 
بارك الله فيك 
ظهرت لدي رسالة خطأ عند العمل على ملفك 
فقمت بإضافة سطر تعريف متغير my_com في بداية الكود ليكون كالتالي 
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim my_com As String
On Error Resume Next
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Value <> "" Then
If Target.Value = "" Then Target.ClearComments
my_com = Application.WorksheetFunction.VLookup(Target, Sheets("Sheet1").Range("A:B"), 2, False)
Target.AddComment my_com
Target.Comment.Visible = False
End If
End Sub
 
 
الملف عمل بشكل جيد ثم أغلقت الملف وفتحته مرة أخرى فوجدت الكود قد اختفى وظهرت رسالة غريبة (أول مرة أشوفها)  
Error in loading DLL