VBA - Ændring i celle skal aktivere handling

Jeg har følgende VBA, som ikke gør det jeg planlægger at den skal gøre.

Dim c As Range
   
    If Not Intersect(Target, Range("KR_100")) Is Nothing Then
        If Target.Range("KR_100").Value = "X" Then
            For Each c In Ark1000.Range("KR_Sysmap100")
                c.Value = "L"
            Next
        End If
    End If

Jeg vil gerne have at alle celler i range KR_Sysmap100 sættes til "L", når Range "KR_100" ændres til X (makro skal kun køre når Range KR_100 ændres).

Hvad gør jeg forkert?