VBA vraag mbt update conditional format excel shape

[resmatrix]

Goedemiddag

Ik heb een validatielijst en wat shapes in een werkblad staan. Alles werkt prima. ik gebruik deze code om de shapes een ander format te laten krijgen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes("Freeform 73")
If Range("AF37").Value = "X" Then
.Fill.ForeColor.SchemeColor = 1
ElseIf Range("AF37").Value <> "X" Then
.Fill.ForeColor.SchemeColor = 2
End If
End With

Het enige wat niet lukt is dat de kleur automatisch zich aanpast als een andere waarde in de validatielijst is geselecteerd. Ik dien dan altijd op een cel in het werkblad te klikken en dan doe hij het wel

Is het mogelijk dat dit gaat zonder dat ik in een andere cel moet klikken?

vast dank voor het antwoord

 

[edmoor]

Wijzig dit:
Private Sub Worksheet_SelectionChange

eens in dit:
Private Sub Worksheet_Change

 

[resmatrix]

Perfect!!!!

Hartelijk dank

Had ik zelf ook moeten zien maar op een gegeven moment kijk ik over dat sort kleine dingen heen

 

[edmoor]

Ik ken het