Hi,

maybe this
Right click the sheet tab, view code and paste this in and run it

Sub stance()
For x = 2 To 7303
myvalue = Int((10 * Rnd) + 1)
Cells(x, 4).Value = Application.WorksheetFunction.Choose _
(myvalue, 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970)
Next
End Sub


Mike

"SANTANDER" wrote:

excel spreadsheet, 5 columns, fourth column (D) contains no data.
I want fill column D with pseudo-random values: 350, 540, 750, 1500, 1200,
2000, 630, 450, 1800, 970 need be filled in cells in random order.
( entered in rows from 2 - 7303, not needs for all column)

Thanks,
santander