Office 2010 - Windows 7

In a Swiss tournament you have 10 or more teams but only 6 (possibly 7)
rounds of competition depending on the total number of teams entered.
Cleary not all teams meet each other as in a Round Robin.
We will assume we have an even number of teams (if uneven I will introduce a
ghost team as a bye round)

I am trying to write a routine that works out which team is to play which
team after each round.

The first round is random where team NO. 1 plays team NO. 2, team NO. 3
plays team NO. 4, team NO. 5 plays team NO. 6 and so on.
The teams meet and Victory Points points are allocated to each team (between
0 and 20) based on the extent of the win.

METHOD OF RE-MATCH:
In subsequent rounds a team must play a team that they haven't yet met but
as close to the RANK of the other team as possible.

In round 2 the team RANKED 1 will meet the team RANKED 2 - straight forward.

In subsequent rounds it is imperative that if the team ranked 1 has already
met the team ranked 2 the program looks down the ranking until it finds a
team it hasn't played and so on for every match.

The routine I wrote is very unwieldy, but usually works up to round 4 or
maybe 5 but then fails on 6 or 7. I am usually left with two teams that
have already met. I then go through the matches manually to reassign to get
all teams meeting a team that they have not already met. This is both
time-consuming and prone to error!

Any code that may be of assistance will be greatly appreciated!
I am sure I can tweak it to suit my needs :)

Thanks to the brains trust in advance,
Peter Bircher
Chairman of the Lower South Coast Bridge Association
+ 27 083 233 1628
Skype: peterbircher )