هل يمكن التعديل على هذا الكود ليشمل الثلاث صفحات معا في نفس الوقت في الملف السابق
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RN1 As Range
Dim RN2 As Range
Dim Q1
Set RN1 = Range("a11:a613")
Q1 = Range(Target.Address)
For Each RN2 In RN1
If Q1 <> "" And RN2.Address <> Target.Address And RN2 = Q1 Then
MsgBox "الادخال : " & Target.Value & " مكرر سيتم حذفه ", vbMsgBoxRight, "ادخال مكرر"
Cells(Target.Row, Target.Column).Select
Selection = ""
Exit Sub
End If
Next
End Sub