How to put random number from list

Sumit_Bhokare 

I have added comments to most lines:

Private Sub CommandButton1_Click()
    Static arr()
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim tmp As Long
    ' Get out if the user selected more than one cell
    If ActiveWindow.RangeSelection.CountLarge > 1 Then Exit Sub
    ' Get out if the active cell is not in the range B2:B18
    If Intersect(Range("B2:B18"), ActiveCell) Is Nothing Then Exit Sub
    ' Is this the first time we click the button?
    If Application.Count(Range("B2:B18")) = 0 Then
        ' If so, store the values of C2:C18 in an array
        arr = Range("C2:C18").Value
        ' Shuffle the items of the array 5 times (this may be overkill)
        For k = 1 To 5
            ' Loop through the elements of the array
            For i = 1 To 17
                ' Get a random index
                j = Application.RandBetween(1, 17)
                ' If it is different from the current index, then ...
                If j <> i Then
                    ' Swap items #i and #j
                    tmp = arr(i, 1)
                    arr(i, 1) = arr(j, 1)
                    arr(j, 1) = tmp
                End If
            Next i
        Next k
    End If
    ' Set the value of the active cell to the corresponding value
    ' from the shuffled array
    ActiveCell.Value = arr(ActiveCell.Row - 1, 1)
End Sub