Create a picklist with colors instead of values.

Need to create a picklist that allows choosing from a list of colors but not values. Is this possible? Using Conditional Formatting is not an option since the values in the cells that need to be painted have different values.

In the attached file you can see example of what I was refering to. I can't post the original one since the data is confidential. In the current picklist there are value options to pick from. I want to chenge that to be only colors refering to the pcklist values. I do not what te value in the cells with the picklist to change.

Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file.

So do you want the values in column A to stay the same but the background cell colour to change depending on which one of those 3 colours you pick for it?

In other words If I pick cell 'look into' for cell A1 do you want cell A1 to still show 'some information 1' but have a background colour of that shade of yellow? Or something different?

If so, this simple piece of code will do what you need (also see attached).

If the message is too annoying that can be removed. Also you may want to change the colour range and column/range.

Right click the sheet tab, select 'view code' and paste this macro in the window that appears.

Option Explicit

Public ColourExpected As Boolean
Public CellToColour As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Const ColumnToColour As String = "A:A"
Const ColourSelection As String = "F1:H4"

    
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range(ColumnToColour)) Is Nothing Then
        ColourExpected = True
        CellToColour = Target.Address
        MsgBox ("please select your colour from cells " & Left(ColourSelection, 2) & " through " & Right(ColourSelection, 2))
        Exit Sub
    End If
    If Not Intersect(Target, Range(ColourSelection)) Is Nothing Then
        If ColourExpected Then
            Range(CellToColour).Interior.ColorIndex = Target.Interior.ColorIndex
        End If
    End If
    ColourExpected = False
    CellToColour = ""
End Sub