Makro til Excel men lavet via Visual Basic

Et spørgsmål. Jeg har fået et prg. der kan lave tilfældige tal, men der ikke må tage tallet mere end en gang. Men jeg bliver ved med at få fejl. Sådan ser den indtil videre ud:

Bingo Makro
'Makro indspillet 16/2/97 af Niels Thommesen
'
'Anbringer tal rækken 1 - 90 i tilfældig rækkefølge
'
'
Sub Bingo_makro()
Dim x, y, Count, z As Integer
Count = 0
Dim t(1 To 90) As Integer
For x = 1 To 90
t(x) = x
Next x
Range("A1").Select
Randomize 'Ellers får man samme resultat hver gang!
Do
    y = Int((90 * Rnd) + 1)
    For x = 1 To 90
        If y = t(x) Then
            t(x) = 0            'Medfører at hvert tal kun optræder 1 gang
            Count = Count + 1
            ActiveCell.Val = y
            ActiveCell.Offset(1, 0).Select
            For z = 10 To 80 Step 10 'Udskrivningsrutine (10 x 9)
                If Count = z Then
                ActiveCell.Select
                ActiveCell.Offset(-10, 1).Select
                End If
            Next z
        End If
    Next x
Loop Until Count = 90
End Sub

Kan i hjælpe mig?