helen,

This will put 50 unique random integers in column A. Right click your sheet
tab, view code and paste this in and run it

Sub No_Repeats()
Dim MyRange As Range
Set MyRange = Range("A1:A50")
For Each c In MyRange
Do
c.Value = Int((9999 * Rnd) + 1)
Loop Until WorksheetFunction.CountIf(MyRange, c.Value) < 2
Next
End Sub

Mike

"helen" wrote:

I would like to know how to generate some quick random numbers in order to
use for demo purposes.