Rastgele Seçme Yardım!

[dark_nigt]

1.000.000 satır ve 6 sütunluk veriden 500 satırı rastgele seçip boyamasını istiyorum.Yardımcı olursanız sevinirim

 

[Orion1]

Buyurunuz.

Sub rastgele59()
Randomize Timer
Dim col As Collection, i As Long, say As Long
Set col = New Collection
For i = 1 To 1000000
    col.Add i
Next i
For i = 1 To 500
    say = Int(Rnd() * col.Count) + 1
    Rows(col(say)).Interior.Color = vbCyan
    col.Remove (say)
Next i
MsgBox "İşlem tamamlanmıştır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub