ولاثراء الموضوع مع ردود الاخوة الكبار
الاخ الحبيب / إبراهيم ابوليله ... جزاه الله خيرا
الاخت الفاضلة / أم عبد الله ... جزاه الله خيرا
اليك كود بسيط ويؤدي نفس الغرض ... ولكن بالعكس ( اسم الشيت يساوي اسم الخلية ) ... مشاركة مني مع هذه الروح العالية
لهذا الصرح العملاق بأعضاؤه الاجلاء
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text
End Sub
تقبلوا خالص تحياتي