تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة
تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells.Interior.ColorIndex = xlNone
If Target.Cells.Count > 1 Then GoTo 1
For R = 2 To 6
With Cells(Target.Row, R).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Next
1 End Sub
مرفق الملف و الشرح
__________________.rar
و مشاركه اخرى من أ / ابو اسامة العينبوسي
مرفق الملف و الشرح
HILITE.ra
و مشاركه اخرى من أ / h63
مرفق الملف و الشرح
New_Folder.rar
و لا تنسونا من صالح الدعاء
تحياتى