Nice, but ...
1) Impossible is still impossible :-) starting from 4 teams there are sentences HH and AA.
2) IanBAlancedRoundRobin in Court or Field option does not care of Team 1 playing always Game 1, while you want it, don't you.
3) if you select Court or Field format the sequences of contignous home or away assignments (HHHH... or AAAA...) are very long. For instance for 32 teams, team1 a is assigned HHHHHHHHHHHHHHHAAAAAAAAAAAAAAAH 
4) if you select Home/Away format it does not present Game number in given round. Of course in home-away all matches could be played the same time. But anyway you should be able to show the planned matches to spectators.
To stop complaining and show my positive (as always :-D) attitude, have a look on a piece of code to be inserted at the end of CommandButton1_Click (just before application.screenupdating = true):
' code for listing added by Kaper, see thread:
' http://www.excelforum.com/excel-formulas-and-functions/995572-need-help-with-a-round-robin-tournament-schedule.html
If Not OptionButton1.Value Then
Dim gameno As Integer
For j = 1 To ((nplayers - 1) \ 2) * 2 + 1
gameno = 0
For i = 1 To ((nplayers - 1) \ 2) * 2 + 1
If WorksheetFunction.CountIf(Cells(nplayers + j + 4, 1).Resize(1, 1 + gameno * 2), Cells(i + 2, 1)) = 0 Then
gameno = gameno + 1
If Cells(i + 2, j + 1).Interior.ColorIndex = 36 Then
Cells(nplayers + j + 4, 2 * gameno) = Cells(i + 2, j + 1)
Cells(nplayers + j + 4, 2 * gameno + 1) = Cells(i + 2, 1)
Else
Cells(nplayers + j + 4, 2 * gameno) = Cells(i + 2, 1)
Cells(nplayers + j + 4, 2 * gameno + 1) = Cells(i + 2, j + 1)
End If
Cells(nplayers + j + 4, 2 * gameno).Resize(1, 2).Interior.ColorIndex = 34 + ((gameno + j) Mod 2) * 3
End If
Next i
Cells(nplayers + j + 4, 1) = Cells(2, j + 1)
Next j
For i = 1 To ((nplayers - 1) \ 2) + 1
Cells(nplayers + 4, 2 * i) = "Game " & i
Next i
End If
I think it could be quite usefull. Moreover, because teams are listed in column A, the output of my procedure keeps Team 1 playing in Game 1 in all rounds !!!
Enjoy!
Bookmarks