Color all cell background and foreground indices

color_cells.bas

' For when you want to preserve color indices when saving from Excel 2007+ to
' .xls format. Copy into PERSONAL.XLS or your worksheet and run with
' Alt+F11, Ctrl+G, ColorCells()

Private Const StartRow As Integer = 2
Private Const StartCol As Integer = 2
Private Const LastColorIndex As Integer = 56

Public Sub ColorCells()
    Dim i As Integer
    Dim Row As Integer
    
    For i = 0 To LastColorIndex
        Row = i + StartRow
        Cells(Row, StartCol).Interior.ColorIndex = i
        Cells(Row, StartCol + 1).Font.ColorIndex = i
    Next i
End Sub