Select Random Rows and Display on new sheet

Hello Everyone,

I have been searching and finally found something close to what I would like to do prior to asking you all. In post: http://www.excelforum.com/excel-prog...selection.html they did an excellent job selecting the random rows.

I need to take it one step further, I need the selected rows to be displayed on a new sheet. The idea being that I have a quiz with hundreds of questions and I only want a random selection to appear when I execute the macro. I plan on hiding the original questions and only displaying the randomly selected ones.

Thanks for your help in advance!

Here is the original code from the previous post.

Sub Random()

  Dim arr As Variant
  Dim nodupes As New Collection
  Dim rng As Range
  
  
  
  strr = "How many to select"
  Do
    noofcells = Application.InputBox(strr, Type:=1)
    If noofcells > Selection.Cells.Count Then strr = "You must select a number less than " & Selection.Cells.Count + 1 & ".  How many to select?"
    
  Loop Until noofcells <= Selection.Cells.Count
  ReDim arr(noofcells)
  
  
  Do
    On Error Resume Next
    arr = Evaluate("=randbetween(1," & Selection.Cells.Count & ")")
    nodupes.Add Item:=arr, Key:=CStr(arr)
    On Error GoTo 0
  Loop Until nodupes.Count = noofcells
  
 If noofcells = 1 Then
   Selection.Cells(nodupes(i)).Select
  Else
    Set rng = Selection.Cells(nodupes(1))
    For i = 2 To noofcells
      Set rng = Union(rng, Selection.Cells(nodupes(i)))
    Next i
  End If
    
 rng.Select
     
  
  With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
  End With
  
End Sub