صباح الخير استاذي الفاضل
بعد أن طبقت الكود على ملفي الرئيسي
يعمل الكود بصورة رائعة جدا وحسب المطلوب
الا انه عند الانتهاء يعطيني رساله مفاده
run time error 13
type mismatch
ويحولني على صفحة الكود
ويعلم على السطر التالي باللون الأصفر
If Evaluate("=ISREF('" & Cel.Value & "'!A1)") Then