How to select random numbers from 500 numbers in excel 2010?

Assuming your numbers are in cells A1:A500, the following event handler will create a new list of 30 random numbers in cells C1:C31, on every 'double click'. If your numbers are not in column "A", change the "A" reference in the code below to your column letter, i.e. "F", "M", etc. If you wish your list of numbers to be returned in a column other than 'C', modify the code: Change the "C1" reference to your column letter, i.e. "F1", "M1", etc. Change the "C" reference to your column letter, i.e. "F", "M", etc. Change the "C:C" reference to your column letter, i.e. "F:F", "M:M", etc. Then, copy the modified event handler to the clipboard (highlight the entire code, right click inside the highlighted area, and 'Copy'): Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Dim i Range("C1").Value = "30 Random Numbers" For i = 2 To 31 rNum = Application.RoundUp(Rnd() * 500, 0) Range("C" & i).Value = Range("A" & rNum).Value Next i Columns("C:C").AutoFit End Sub Select the worksheet containing the list of numbers and right click the sheet tab at the bottom. Select 'View Code' Paste the event handler into the white editing area to the right (right click in the area and 'Paste') Close the VBE (red button w/white 'x'). To create the list, double click any cell. To create a new list, double click again. The numbers will not change unless you double click any cell.