Hello Stephen,

The loop requires a little more math to work properly. Here is the revised version.
_________________________________________________________________

Dim I As Integer
Dim Tens As Integer
Dim Ones As Integer
Dim ColAddx As String

For I = 1 To TotalCols

Ones = I Mod 27
Tens = I \ 27

If Tens = 0 Then
ColAddx = CHR$(Ones + 64)
Else
ColAddx = Chr$(Tens + 64) & Chr$(Ones + 64)
End If

Next I
_________________________________________________________________

Hope this helps,
Leith Ross