Here is that code applied to your, @badger specific case:
Ha! You have 14 sets of 5 unique and non intersecting sets of numbers from 1 Shuffle of deck of 73 cards.
Code: (Select All)
' Generate a random number between -1 and 71
' 0 to 71 = 72 cards plus 1 for -1 = 73 cards
' without repetition
Randomize Timer ' for new random set nearly every time
TopN = 73
ReDim n(1 To TopN) 'repeatable for ref
For i = 1 To TopN
n(i) = i
Next
' shuffle
For i = TopN To 2 Step -1 ' Fisher Yates Shuffle of N Items
Swap n(i), n(Int(Rnd * (i) + 1))
Next
' results of shuffle
For i = 1 To TopN
Print " "; i; "-"; n(i) - 2; Chr$(9); ' <<<<< subtract 2 for number -1 to 71
Next
PrintHa! You have 14 sets of 5 unique and non intersecting sets of numbers from 1 Shuffle of deck of 73 cards.
b = b + ...