Hey all,

I have been reading for a while and finally I need some help. I have a list of information and need to select the rows randomly from one worksheet to another. However the main list is about 5,000 rows long and I only need 1,700 of them but I keep getting duplicates. Anyone know how to not get duplicates in the 1,700 that I copy.

I am using the following code to generate the 1,700 rows randomly and copy them from one sheet to another.

Sub a1takeSample()
  Randomize Timer
  For SampleRow = 2 To 1700
    dataRow = 2 + Fix(4945 * Rnd)
    Worksheets("Main").Rows(dataRow).Copy
  Worksheets("Batch 1").Rows(SampleRow).PasteSpecial
  Next SampleRow
End Sub
Thanks for any help!