Thanks Mike
I set the range and copied the code right then pressed F5 but it gave me
this error "Range" of Object "- worksheet" failed. I tried both codes. Please
help me

"Mike H" wrote:

The if bit isn't necessary

Sub stantial()
Count = 1
For i = 1 To Application.WorksheetFunction.CountA(Range("myMate s"))
For j = i + 1 To Application.WorksheetFunction.CountA(Range("MyMate s"))
Name1 = Range("MyMates").Cells(i, 1)
Name2 = Range("MyMates").Cells(j, 1)
Cells(0 + Count, 1) = Name1
Cells(0 + Count, 2) = Name2
Count = Count + 1
Next j
Next i
End Sub

Mike

"Yossy" wrote:

Possible two-person teams that can be formed from 8 candidates (28) i.e
=COMBIN(8,2).

However, my question is Lets assume the list of all 8 candidates names' are
John, Dustin, Mary, David, Peter, Rossy, Liz and Mike. How do I get the list
of all the two-person team that will total 28. All help will be appreciated.

I was thinking of using the vlookup together with the COMBIN function but
can't figure it out. Let me know if there is a better way to acheive this.
Thanks