Farveskifte på celle hvis formel ændres

Denne makro ændrer farven i en celle, hvis cellen ændres OG hvis cellen indeholder en formel:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
With Target.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Else
With Target.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

Super - det var lige det jeg skulle bruge. Kan du svare så jeg kan give dig point

Godt, du får et svar.