Sub allGames(byval lngTeams as Long)
Dim lngTeam1 As Long
Dim lngTeam2 As Long
 
For lngTeam1 = 1 To lngTeams - 1
  For lngTeam2 = lngTeam1 + 1 To lngTeams
    Debug.Print Format(lngTeam1, "0") + " - " + Format(lngTeam2, "0")
  Next lngTeam2
Next lngTeam1
 
End Sub