Here's an easier version: with your team names in cells A1:A32, run this:

Sub EasierVersion()
Dim i As Integer
Dim j As Integer
Dim k As Integer

For i = 1 To 30
For j = i + 1 To 31
For k = j + 1 To 32
Range("B65536").End(xlUp)(2).Value = _
Cells(i, 1).Value & ", " & _
Cells(j, 1).Value & ", " & Cells(k, 1).Value
Next k
Next j
Next i

End Sub

HTH,
Bernie
MS Excel MVP


"Bluesters" wrote
in message ...

Math Question for football pool

--------------------------------------------------------------------------------

Does anyone know where I can obtain software that would enable me to
print out all 4,960 3 team football combinations using the 32 NFL teams
(Order does not matter), it would be used for a pool I'm running.

Thanks



--------------------------------------------------------------------------------

I want to make sure I understand

Team A, Team B, Team C
Team A, Team B, Team D
Team A, Team B, Team E