No problem 😀

Here is another handy macro that demonstrates formatting, and tells you the numbers Excel uses for colours as a bonus

Sub colors56()

'57 colors, 0 to 56

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual 'pre XL97 xlManual

Dim i As Long

Dim str0 As String, str As String

For i = 0 To 56

Cells(i + 1, 1).Interior.ColorIndex = i

Cells(i + 1, 1).Value = "[Color " & i & "]"

Cells(i + 1, 2).Font.ColorIndex = i

Cells(i + 1, 2).Value = "[Color " & i & "]"

str0 = Right("000000" & Hex(Cells(i + 1, 1).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 + 1, 3) = "#" & str & "" '& "#" & str & ""

Cells(i + 1, 3).Font.Name = "Courier"

Cells(i + 1, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"

Cells(i + 1, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"

Cells(i + 1, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"

Cells(i + 1, 7) = "[Color " & i & "]"

Next i

done:

Application.Calculation = xlCalculationAutomatic 'pre XL97 xlAutomatic

Application.ScreenUpdating = True

End Sub

This is a macro to be run in excel, try it in a new workbook. All credit to http://www.mvps.org/dmcritchie/excel/colors.htm 😉

Dave J