تمام ماشاء الله عليك
على فكرة تم اضافة شرطين للحفاظ على رسالة ( الصورة غير موجودة ) ضمن الأسماء فقط
وازالة الصورة بعد الانتقال للأعلى كما للجانب
والسطرين هما :
السطر 50
If Target.Column <> r Or Target.Row < 3 Then
السطر 55
If Target.Column = r And Target.Row > 2 Then
الآن ربط الصفحات مع بعضها البعض لو أمكن
والسلام ختام