Opret kampprogram

Jeg ved ikke om dette kan kaldes en algoritme, men dette skulle lave et slags kampprogram.
Den laver så selv holdnavne, da jeg ikke ved hvad dine hold hedder.

Sub KampProgram()

Dim i

For i = 1 To 10
    ActiveSheet.Cells(i + 1, 1).Value = "Hold" & CStr(i)
    ActiveSheet.Cells(1, i + 1).Value = "Hold" & CStr(i)
    ActiveSheet.Cells(i + 1, i + 1).Select
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
Next
End Sub

... den skulle være til at kopiere ind i din VBA-editor. Men evt. kunne skrive et link til et eksempel på et kampprogram.

lukkes