特定名簿からのトーナメント作成ツールを、少しずつ紹介中。 本日も、昨日の続きから。 今日は、三つに分けたサブプロシージャの最後。 Dim Sh As Worksheet Set Sh = ActiveSheet ' トーナメント作成用シートを変数にセットしてリネーム。 Sh.Name = SheetN…