Solved: using countif in code

[philfer]

Hello,

I am trying to loop through a list of cells to see if there are duplicates and an using :-

[VBA]
Sub test()
Dim i As Integer
With ActiveSheet
For i = 1 To 10
If WorksheetFunction.CountIf(.Columns("A:A"), .Cells(i, 1)) > 1 Then
.Cells(i, 1).ColorIndex = 6
.Cells(i, 1).Pattern = xlSolid
End If
Next i
End With
End Sub
[/VBA]

Can anyone see my error?

[rory]

[VBA] .Cells(i, 1).Interior.ColorIndex = 6[/VBA]
should work.