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

[abouelhassan]

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

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

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

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

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

 

كود وضع اسم الشيت بخلية.xlsm

[سليم حاصبيا]

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

 

Sheet_Name.xlsm

[abouelhassan]

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

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

أكرمك الله

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