You need to check the interior.colorindex of the cells, but for the
"standard" colors:

for each cell in selection
Select Case cell.Interior.ColorIndex
Case 3 'Red
Cell.Value = "Severe"
Case 4 'Green
cell.Value = "Slight"
Case 6 'Yellow
Cell.Value = "Minor"
End Select
Next

--
Regards,
Tom Ogilvy

"RT" wrote in message
...
I have to get a spreadsheet setup so I can import into Access. Certain
parts of it are color coded, Green - slight, Yellow = Minor, Red=Severe.
I
need to insert in the cell it's value. See attached.

Sorry for the binary but it's small. It's just so much easier than trying
to explain.

Thanks

RRT