Vul een matrix met het alfabet waarbij de regels telkens verspringen. Je krijgt dus als het ware een vierkant. In verkorte vorm:

ABCD
BCDA
CDAB
DABC

Maar dan met alle 26 letters.

Sub Fill_Square_With_Alfabet()
Dim strAlfabet As String
Dim Arr(1 To 26, 1 To 26) As Variant
Dim x, y, z As Integer

strAlfabet = "ZABCDEFGHIJKLMNOPQRSTUVWXY"

For x = 1 To 26
    For intRow = 1 To 26
        strCharacter = Left(strAlfabet, 1)
        strAlfabet = Mid(strAlfabet, 2, 25) & strCharacter
        For intColumn = 1 To 26
            Arr(intRow, intColumn) = Mid(strAlfabet, intColumn, 1)
        Next
    Next
Next
Debug.Print "OK"
End Sub