مطلوب تعديل كود احد الاساتذة بالمنتدى يعمل على كتابة اسم الشيت فى خلية

**abouelhassan** · مايو 15, 2020

السادة الاساتذة الافاضل

هذا الكود يعمل تمام شرط وجوده بحدث ورقة العمل المطلوب تعديله ليوضع فى حدث thisworkbook

لينفذ فى كامل الملف مع خالص التقدير

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A4") = ActiveSheet.Name
End Sub

**سليم حاصبيا** · مايو 15, 2020

تفضل اخي ابو الحسن

**abouelhassan** · مايو 15, 2020

ربنا يسعد قلبك ويكرمك ويبارك لك اللهم امين يارب

استاذ سليم حبيبي يعجز لساني عن شكرك

أكرمك الله

حبيبي يا استاذنا.

الردود الموصى بها