Sayın atoz112 merhaba: Gönderdiğin çalışmalardaki Vba kodlarına belirli aralıkları nasıl eklerim.

Private Sub Worksheet_Change(ByVal Target As Range)
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

   Dim ws As Worksheet, EvalRange As Range

   Set EvalRange = Range("E1:E5") burada e1 ile e5 aralığına H1 ve H2 gibi.... aralıklar nasıl ilave edebilirim.
       
     
   If Intersect(Target, EvalRange) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub

   If WorksheetFunction.CountIf(EvalRange, Target.Value) > 1 Then
       MsgBox Target.Value & " ifadesi daha önceden yazılmıştır. Lütfen, yeni değer yazınız! "
       Application.EnableEvents = False
       Application.Undo
       Application.EnableEvents = True
   End If
   
   For Each ws In Worksheets
       With ws
           If .Name <> Target.Parent.Name Then
               If WorksheetFunction.CountIf(Sheets(.Name).Range("E1:E5"), Target.Value) > 0 Then
                   MsgBox Target.Value & " ifadesi daha önceden yazılmıştır. " & .Name & ".", _
                   16, "Lütfen,yeni değer yazınız. " & EvalRange.Address(0, 0) & "."
                   Application.EnableEvents = False
                   Application.Undo
                   Application.EnableEvents = True
                   Exit For
               End If
           End If
       End With



Set EvalRange = Range("E1:E5") burada e1 ile e5 aralığına H1 ve H2 gibi.... aralıklar nasıl ilave edebilirim. Yani çoklu aralıklar ilave edebilirsem bu iç çözülecek. Yardımların için teşekkürler.