Hi Everyone,

I found this Code that Seems to Test for Duplicates :-

Sub Test_Dupl()
Dim i As Integer
Dim j As Integer
Dim nDupl As Integer
Dim nNum(5) As Integer

Application.ScreenUpdating = False
Do While ActiveCell < ""
nDupl = 0

For I = 1 To 5
nNum(i) = ActiveCell.Offset(0, i - 1).Value
Do Until nNum(i) < 10
nNum(i) = nNum(i) - 10
Loop
Next i

For i = 1 To 4
For j = I + 1 To 5
If nNum(i) = nNum(j) Then
nDupl = nDupl + 1
End If
Next j
Next i

Select Case nDupl
Case 1
nDupl = 2
Case 2
nDupl = 4
Case 4
nDupl = 5
Case 6
nDupl = 4
Case 10
nDupl = 5
End Select

ActiveCell.Offset(0, 5).Value = nDupl
ActiveCell.Offset(1, 0).Select

Loop
Application.ScreenUpdating = True
End Sub

Could Somebody Kindly Explain what the ...

For I = 1 To 5
nNum(i) = ActiveCell.Offset(0, i - 1).Value
Do Until nNum(i) < 10
nNum(i) = nNum(i) - 10
Loop
Next i

Bit of Code is Actually doing, and the ...

For i = 1 To 4
For j = I + 1 To 5
If nNum(i) = nNum(j) Then
nDupl = nDupl + 1
End If
Next j
Next i

Bit of Code is Actually doing, and ...

Select Case nDupl
Case 1
nDupl = 2
Case 2
nDupl = 4
Case 4
nDupl = 5
Case 6
nDupl = 4
Case 10
nDupl = 5
End Select

the Bit of Code is Actually doing Please.

Any Help will be Greatly Appreciated.
All the Best.
Paul