اخى عيسى
يفضل انت ترفق مرفق للعمل عليه
وذلك تسهيلا على الاخوه المشاركين فى الموضوع
.......................................................
على العموم
جرب تغير السطر التالى\
If InStr(CStr(.Cells(r, "E")), txt) Then
الى
If InStr(CStr(.Cells(r, "E")), txt)=1 Then
تقبل تحياتى