ok.. there is a loop..
It looks just dandy to me..
Whats the problem it??

ALL the code..

------------------------

Dim RndNum As Integer
Dim RecordRndNum(200) As Integer
Dim KeepRecordPlace As Integer
Dim Matches As Integer
Dim looper As Integer

Startover:

Randomize
RndNum = Int(Rnd * 84) + 1

RecordRndNum(KeepRecordPlace) = RndNum
KeepRecordPlace = KeepRecordPlace + 1

Do While looper <= 200
If RndNum = RecordRndNum(looper) Then
Matches = Matches + 1
End If
looper = looper + 1
Loop

If Matches > 1 Then
KeepRecordPlace = KeepRecordPlace - 1
Matches = 0
GoTo Startover
End If

Counter = RndNum
-------------------------------------------