macro starten na wijziging waarde in een cel

[JanBG]

Hallo,

Ik heb een bestand waarin ik door een macro een bepaalde lijst wil aanpassen als een waarde in een vaste cel wijzigt. Ik gebruik hiervoor de volgende codes:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If (ActiveSheet.Target.Address = ("$K$4")) Then Call Macro4

End Sub

en:

Sub Macro4()
    Sheets("Uitslagen").Range("A1").CurrentRegion.AdvancedFilter _
    Action:=xlFilterCopy, _
        CriteriaRange:=Range("Patient_individueel!Criteria"), CopyToRange:=Range( _
        "Patient_individueel!Ophalen"), Unique:=False
End Sub

De macro werkt prima, alleen start niet automatisch als de waarde in K4 verandert.
Wat zie ik over het hoofd?

 

[edmoor]

Gebruik niet SelectionChange maar Change:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "K4" Then Call Macro4
End Sub

 

[HSV]

SelectionChange → Change

 

[JanBG]

Edmoor, HSV,

Dank. Probleem opgelost