Shuffle an Array

[S.H.A.D.O.]

Good evening,

For what I am trying to do it appears that I need a Sub that "Shuffles" an array.
I have been surfing the web but unfortunately I can't find one that accommodates exactly what I am after. I basically want to be able to designate the size of the array (e.g. 34 numbers or 40 numbers or 45 numbers etc) and then choose whether I want them listed as 4 number combinations, 5 number combinations or 6 number combinations for example starting in cell "B2".

For example: If I was to use 34 numbers and produce 5 number combinations ...

combination 1 would be in cells B2:F2 ( 5 Numbers )
combination 2 would be in cells B3:F3 ( 5 Numbers )
...
combination 6 would be in cells B7:F7 ( 5 Numbers )
combination 7 would be in cells B8:E8 ( 4 Numbers )

If anyone has any ideas I would be grateful.

 

[S.H.A.D.O.]

Mick,

It works like a dream, THANK YOU.
I have adapted it slightly for my specific needs and the revised code is ...

Sub MG09Sep08()
Dim Ray     As Variant
Dim num     As Integer
Dim n       As Integer
Dim txt     As String
Dim Rw      As Integer
Dim TxRay() As String
Dim c       As Integer
Dim rws     As Integer
Dim Col     As Integer
Dim ColNum  As Integer
Dim RwNum   As Integer
Dim Ac      As Integer
Dim Dn      As Integer
RwNum = Application.InputBox("How Many Numbers Would You Like To Shuffle?", "Randomize", Type:=1)
ColNum = Application.InputBox("How Many Numbers In Each Combination?", "Output", Type:=1)
Columns("A:K").ClearContents
'   Range("A1") = RwNum
'   Range("B1") = ColNum
Ray = Evaluate("row(1:" & RwNum & ") ")
rws = UBound(Ray, 1)
Randomize
ReDim nRay(1 To rws)
For Rw = 1 To rws
        c = 0
        If Rw = rws Then
            nRay(Rw) = Ray(1)
            Exit For
        Else
            num = Int(Rnd * UBound(Ray)) + 1
            nRay(Rw) = Ray(num, 1)
        End If
        For n = 1 To UBound(Ray, 1)
            If Not Ray(n, 1) = Ray(num, 1) Then
                ReDim Preserve TxRay(c)
                TxRay(c) = n
                c = c + 1
            End If
        Next n
        Ray = Application.Index(Ray, Application.Transpose(Array(TxRay)))
        Erase TxRay
Next Rw
Dn = 2
For n = 1 To UBound(nRay)
    Ac = Ac + 1
    If Ac = ColNum + 1 Then
        Dn = Dn + 1
        Ac = 1
    End If
        Cells(Dn, Ac + 1) = nRay(n)
Next n
End Sub

Thanks again.