Run this macro. It will make a CSV file that can be imported into Excel:

Sub CreateAfile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\combins.csv", True)
For i = 1 To 10
For j = 1 To 10
For k = 1 To 10
For l = 1 To 10
For m = 1 To 10
For n = 1 To 10
v = i & "," & j & "," & k & "," & l & "," & m & "," & n
a.WriteLine (v)
Next
Next
Next
Next
Next
Next
a.Close
End Sub

--
Gary''s Student - gsnu200781


"Paul Black" wrote:

Hi,

I would like to be able to list all the sequences of numbers using six
criteria.
The easiest way to explain it would be to say there are six jars, with
each jar containing anything from 1 to 10 counters.
Ideally I would like a list of all the sequences. So for example ...

10 09 07 03 02 05
10 08 07 05 01 09
01 03 08 10 04 10

... etc.

If it helps, I could put the actual counters that are in each jar in
cells A1:F1.
I know that the list will be quite long depending of the number of
counters in each jar.
The first combination would go in cells A3:F3, the second in cells
A4:F4 etc, etc.

Thanks in Advance.
All the Best
Paul