Option Explicit
'-- McRitchie_Colors  http://www.mvps.org/dmcritchie/excel/colors.htm
'-- McRitchie_Colors  http://www.mvps.org/dmcritchie/excel/code/colors.txt

Function showRGB(rcell)
    'WRONG WRONG WRONG,  wrong order
    ' Show RGB hex color value of another cell
    ' showRGB = Right("000000" & Hex(rcell.Interior.Color), 6)
    Dim xColor As String
    xColor = Right("000000" & Hex(rcell.Interior.Color), 6)
    showRGB = Right(xColor, 2) & Mid(xColor, 3, 2) _
      & Left(xColor, 2)
End Function
Function ShowHTMLcolor(xcell) As String
    Dim xColor As String
    xColor = Right("000000" & Hex(xcell.Interior.Color), 6)
    ShowHTMLcolor = "#" & Right(xColor, 2) & Mid(xColor, 3, 2) _
      & Left(xColor, 2)
End Function
   Function showColorIndex(rcell)
      showColorIndex = rcell.Interior.ColorIndex
   End Function
   
'-- Functions above subs  so functions are found faster (at least that is intent)

Sub ClearConstantsFromColorCells()
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   Dim Cell As Range
   On Error Resume Next   'In case no cells in selection
   Application.EnableEvents = False
   For Each Cell In Intersect(Selection, _
         Cells.SpecialCells(xlConstants))
      If Cell.Interior.ColorIndex >= 0 Then Cell.ClearContents
   Next
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
End Sub

Sub ColorFormulas()    'xl97 up use xlcelltypeformulas
   Cells.Font.ColorIndex = xlAutomatic
   Selection.SpecialCells(xlFormulas).Font.ColorIndex = 5
End Sub

Sub ColorFromRight()
     Application.ScreenUpdating = False
     Application.Calculation = xlCalculationManual
     Dim Cell As Range
     Selection.Interior.ColorIndex = xlNone  'clear existing color
   '  On Error Resume Next   'In case no cells in selection
     For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
     If IsNumeric(Cell.Offset(0, 1).Value) _
        And Cell.Offset(0, 1).Value <= 56 Then
           Cell.Interior.ColorIndex = Cell.Offset(0, 1).Value
     End If
  Next Cell
   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
End Sub

Sub ListColors()
   'you may change the colors in color palette used in your workbook
   Dim i As Long
   Cells(1, 1) = "Interior": Cells(1, 2) = "Font": Cells(1, 3) = "boldface"
   Columns(3).Font.Bold = True
   For i = 1 To 56
     Cells(i + 1, 1).Interior.Color = ThisWorkbook.Colors(i)
     Cells(i + 1, 2).Font.Color = ThisWorkbook.Colors(i)
     Cells(i + 1, 3).Value = "[color " & i & "]"
     Cells(i + 1, 3).Font.Color = ThisWorkbook.Colors(i)
     Cells(i + 1, 3).Value = "[color " & i & "]"
     Cells(i + 1, 3).Font.Bold = True
   Next i
End Sub

'The following FUNCTIONs or SUBs can be obtained at Chip Pearson's 
'  http://www.cpearson.com/colors.htm  suggest module name of  CP_Colors:
' CellColorIndex, CountByColor, SumByColor, SumIfByColor, RangeOfColor, 
'  AddressOfRangeOfColor, FindColor, AddressOfFindColor, GetRGB