BlackBlade,
Try this

Sub dd()
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
For m = k + 1 To 6
n = n + 1
Cells(n, 2).Value = Cells(i, 1) * _
Cells(j, 1) * Cells(k, 1) * Cells(m, 1)

Next
Next
Next
Next
End Sub

Cecil

"BlackBlade" wrote in message
...
Dear friends,
lets say i have 6 numbers. if i take 4 numbers out of the 6 at a time and
multiply them i know i have 15 possible series of the 4 numbers. Is there
a
way by vba in excel to have all the possible 4pairs multiplations?

for example
a1 10 1st match = a1*a2*a3*a4
a2 9 2nd match= a2*a3*a4*a5
a3 7 3rd match =a3*a4*a5*a6
a4 5 4th .....
a5 4 15th....=a1*a4*a5*a6
a6 3

is it possible to have all matches with a click?how?
thanks in advance!