It's a bit slow generating 200,000 numbers...
Sub UniqueRandomNumbers()
'Creates a list of numbers starting in A1
Dim HowMany As Long
Dim a As String
Dim ncRandList As New Collection
Dim r As Range
Dim x As Long
HowMany = 6000
Randomize
On Error Resume Next
Do While ncRandList.Count < HowMany
a = Int(Rnd() * 99999999) + 1
ncRandList.Add a, CStr(a)
Loop
On Error GoTo 0
Application.ScreenUpdating = False
For Each r In Range("a1").Resize(ncRandList.Count, 1)
x = x + 1
r = ncRandList(x)
Next r
Application.ScreenUpdating = True
End Sub
Bookmarks