Below is code I wrote for somebody else earlier this week.

Modify these two line as necessary
'you can make instring as long or short as you want.  You can put string in
the array instead of number.
'for 6 players
InStrings = Array(1, 2, 3, 4, 5, 6)
'for 10 players
InStrings = Array(1, 2, 3, 4, 5, 6,7,8,9,10)

modify for size of team or number of teams playing together
ComboLen = 2

Public InStrings
Public combo
Public RowCount
Public ComboLen
Sub combinations()

InStrings = Array(1, 2, 3, 4, 5, 6)
Length = UBound(InStrings) + 1

Level = 1
RowCount = 1
ComboLen = 2
ReDim combo(ComboLen)
Position = 0

Call recursive(Level, Position)
End Sub
Sub recursive(ByVal Level As Integer, ByVal Position As Integer)

Length = UBound(InStrings) + 1

For i = Position To (Length - 1)
 
  'for combinations check if item already entered
  found = False
  For j = 0 To (Level - 2)
     'combo is a count of the combinations,not the actual data
     '123
     '124
     '125
     '234
     '235
     '245
     '345
     'data is actually in InStrings
     If combo(j) = i Then
        found = True
        Exit For
     End If
  Next j
 
  If found = False Then
     combo(Level - 1) = i
     If Level = ComboLen Then
        For j = 0 To (ComboLen - 1)
           If j = 0 Then
              ComboString = InStrings(combo(j))
           Else
              ComboString = ComboString & "," & InStrings(combo(j))
           End If
        Next j
        Sheets("Sheet2").Range("A" & RowCount) = ComboString
        RowCount = RowCount + 1
     Else
        Call recursive(Level + 1, i)
     End If
  End If
Next i
End Sub