Option Base 1
Sub macro1()
Optimise (False)

MyDir = MyPath = ActiveWorkbook.Path

FileCount = 1

Columns("A:AF").Clear
Dim MyArray(32)
Dim MyArray2(32)

For Count = 1 To 32

MyArray(Count) = 0
MyArray2(Count) = 0

Next


Row = 0

Loop1:
Column = 32
Row = Row + 1
Display = Display + 1


Range(Cells(Row, 1), Cells(Row, 32)).Value = MyArray2

Loop2:
If Column = 0 Then GoTo Quit
If MyArray(Column) = 4 Then MyArray(Column) = 0: MyArray2(Column) = 0: Column = Column - 1: GoTo Loop2
MyArray(Column) = MyArray(Column) + 1
MyArray2(Column) = Chr(MyArray(Column) + 64)

GoTo Loop1

Quit:
Optimise (True)
End Sub
Sub Optimise(Flag As Boolean)
On Error Resume Next
Application.ScreenUpdating = Flag
Application.DisplayAlerts = Flag
Application.EnableEvents = Flag
Application.DisplayStatusBar = Flag
ActiveSheet.DisplayPageBreaks = Flag
If Flag = False Then
Application.Calculation = xlCalculationAutomatic
Else
Application.Calculation = xlCalculationManual
End If
On Error GoTo 0
End Sub