VBA - Fehler im QT | Herbers Excel-Forum

Hi, ich finde meinen Fehler einfach nicht:
das Makro soll die Duplikate in der Spalte C gelb faerben, ausgenommen wenn 0000 in der spalte doppelt vor kommt. Hier der QT:

Sub doublecolour()
Dim i As Long
Dim s As Long
Range("C:C").Interior.ColorIndex = xlNone
s = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Range("C" & i) <> "0000" Then
If Application.CountIf(Range("C4:C" & s), Range("C" & i)) > 1 Then
Range("C" & i).Interior.ColorIndex = 6
End If
End If
Next i
End Sub