Formatierung VBA

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'Wenn Target aus mehr als 1 Zelle besteht, führe keine
'Hintergrundformatierung aus
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
'Außerhalb des Zellbereichs D20:E25 soll keine
'bedingte Hintergrundfärbung ausgeführt werden
If Application.Intersect(Range("D20:E25"), Target) Is Nothing Then Exit Sub
'Bedingte Hintergrundformatierung:
'Rot: Zellwert kleiner 10
'Gelb: Zellwert zwischen 10 und 100
'Weiß: Zellwert größer 100
If .Value  10  100 >= 500 Then
.Interior.Color = vbBlue
ElseIf .Value > 500 Then
.Interior.Color = vbGreen
End If
End With
End Sub