كود تلوين الخليه

[على حسن]

هذا الكود لتلوين الخليه النشطه كيف يمكننى تفعيل الكود لاكثر من الف صفحه
Option Explicit
 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If

Target.Interior.ColorIndex = 3

Set OldCell = Target


End Sub

[الـعيدروس]

الكود المشار اليه 

الصقه في حدث Thisworkbook

وجرب راح يعمل معك في كافة اوراق المصنف

[قنديل الصياد]

جزاك الله خيرا اخى الاستاذ / على حسن

وجزاك الله خير الجزاء استاذنا / عباد

 

مرفق ملف به الكود ويعمل على جميع الصفحات

الاستاذ على حسن.rar

[على حسن]

جزاك الله خيرا استا>ى قنديل الصياد وجعله الله فى ميزان حسناتك

فعلا كود رائع