Display colors next to list of hex color codes

Here is an update to the previously attached file :

Sub colors56()
'57 colors, 0 to 56

Dim i As Long
Dim str0 As String, str As String
Cells(1, 7) = "Interior"
Cells(1, 8) = "Font"
Cells(1, 9) = "HTML"
Cells(1, 10) = "RED"
Cells(1, 11) = "GREEN"
Cells(1, 12) = "BLUE"
Cells(1, 13) = "COLOR"


For i = 0 To 56
    Cells(i + 2, 7).Interior.ColorIndex = i
    Cells(i + 2, 8).Font.ColorIndex = i
    Cells(i + 2, 8).Value = "[Color " & i & "]"
    str0 = Right("000000" & Hex(Cells(i + 2, 7).Interior.Color), 6)
    'Excel shows nibbles in reverse order so make it as RGB
   str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
    'generating 2 columns in the HTML table
   Cells(i + 2, 9) = "#" & str
    Cells(i + 2, 10).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
    Cells(i + 2, 11).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
    Cells(i + 2, 12).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
    Cells(i + 2, 13) = "[Color " & i & "]"
Next i
End Sub