aynı makroyu multiple tetikleme

[mersilen]

Selamlar
Macroda tetikleme için kullandığım hücre sayısını artırmak istiyorum,
Kırmızı ile işaretlediğim kısmı nasıl yapmalıyım?

 If Intersect(Target, [COLOR="Red"][e13 ; a895;b47;c44][/COLOR]) Is Nothing Then Exit Sub

 

[Skorpiyon]

Sayın mersilen,

Aynı şekilde parantez içine tetikleme yapmak istediğiniz hücre adreslerini ekleyin.

 

[mersilen]

Tekrar selamlar
Bu şekilde olmuyor, hata veriyor
Tek olursa sorun yok

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Integer

    If Intersect(Target, [COLOR="Red"][e13;a284;a401;a801;a900][/COLOR]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    
    
   
    For X = 128 To 158
            Range("A" & X & ":ad" & X).Interior.ColorIndex = xlNone
        If Weekday(Cells(X, 1), 2) > 5 Then
            'Range("C" & X & ":ad" & X).ClearContents
            Range("A" & X & ":ad" & X).Interior.ColorIndex = 43
        End If
    Next
end sub

 

[Necdet]

Merhaba,

Aşağıdaki şekilde yazınız.

If Intersect(Target, [A1,C3,D8,G5,I13]) Is Nothing Then Exit Sub

 

[mersilen]

Necdet hocam teşekkürler