Excel VisualBasic Script

Sub ViewWorkbookColors() 
    Dim rg As Range 
    Dim nIndex As Integer 
    Set rg = ThisWorkbook.Worksheets("Sheet1").Range("A1:E5").Offset(1, 0) 
    For nIndex = 1 To 56 
        rg.Value = nIndex 
        rg.Offset(0, 1).Interior.ColorIndex = nIndex 
        rg.Offset(0, 2).Value = rg.Offset(0, 1).Interior.Color 
        Set rg = rg.Offset(1, 0) 
    Next 
    Set rg = Nothing 
End Sub