Schleifendurchlauf verhindern

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("Orte")
If Target.Cells.count > 1 Then
Exit Sub
End If
If Intersect(Target, rng) Is Nothing Then
Exit Sub
End If
If WorksheetFunction.CountIf(rng, Target.Value) > 1 Then
Target.Interior.ColorIndex = 6
MsgBox ("Der Wert ist bereits in der Liste!")
Else
Target.Interior.ColorIndex = xlColorIndexNone
End If
End Sub