السلام عليكم ورحمة الله وبركاته 
 
 
أخواني آمل هذه المرة الرد علي طلبي اريد ايقاف هذا الكود عند نسخ بيانات او اي خلية لا استطيع عمل النسخ في ظل عمل هذا الكود الكود بالملف آمل حل المشكل  
 
الملف كان من احد الاعضاء وليس مني 
 
أخوكم 
 
أحمد 
 
 
   Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    If Target.Cells.Count = 1 Then
        With Rows(Target.Row).Interior
            .ColorIndex = 22
            .Pattern = xlSolid
        End With
    End If
End Sub
 
 
__________________.zip