Gegevensvalidatie: waarde bijwerken bij wisselen blad

[Figaro75]

Zou de code van Gijsbert1 bv werken omdat hier de kleur met VBA wordt ingesteld i.p.v. met voorwaardelijke opmaak?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim FirstRow As Long
Dim LastRow As Long
Dim FirstColumn As Long
Dim LastColumn As Long
Application.ScreenUpdating = False
FirstRow = Selection.Row
LastRow = Selection.Row + Selection.Rows.Count - 1
FirstColumn = Selection.Column
LastColumn = Selection.Column + Selection.Columns.Count - 1
With ActiveSheet.Range("A:ZZ")
    .FormatConditions.Delete
    .FormatConditions.Add xlExpression, Formula1:="=EN(RIJ(A1)>=" & FirstRow & ";RIJ(A1)<=" & LastRow & ")"
    .FormatConditions(1).Interior.Color = RGB(205, 255, 230)
    .FormatConditions.Add xlExpression, Formula1:="=EN(KOLOM(A1)>=" & FirstColumn & ";KOLOM(A1)<=" & LastColumn & ")"
    .FormatConditions(2).Interior.Color = RGB(205, 255, 230)
End With
Application.ScreenUpdating = True
End Sub

Of werkt het al als ik de screenupdating uit zet tijdens het uitvoeren van de vergelijking?
Update: screenupdating uit zetten werkt niet.....