I am working with a home-grown budget project and I have a problem with a
bit of the code. I am attempting to justify a balance based on transactions
that have cleared versus pending transactions. I am setting the cell
interior.colorindex to highlight the amounts which have cleared. The problem
that I am having is that within a rangI have two transactions that are
exactly the same amount, one which has cleared and one that is pending. When
I run my code it ignores the colorindex property and adds both amounts. If I
change one of the entries the code works just fine.

Please, any help or pointers would be appreciated.

For Each c In ActiveSheet.Range("addon")
If c.Interior.ColorIndex < 6 Then

MyArr = Array(c.Value)

'Rcount = 0
With ActiveSheet.Range("addon")
'note - addon is a range created with union

For I = LBound(MyArr) To UBound(MyArr)
Set Rng = .find(What:=MyArr(I), _
LookIn:=xlValues)
If Not Rng Is Nothing Then
FirstAddress = Rng.Address
Do
Rcount = Rcount + 1
ActiveSheet.Range("Z" & Rcount).Value = Rng.Value
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <
FirstAddress
'ActiveSheet.Range("w1") = Rng.Address
End If
Next I
End With
'Application.ScreenUpdating = True
End If
Next c