Hello -

Searching through some old posts, I found this code to use
Interior.ColorIndex to assign a value to a cell. I need to modify
this code to apply this logic to all sheets in a workbook, for a
specific range (say A1-Z100) .... OR even better would be to apply to
the 'used' range on each sheet (since it will vary).

TIA, Ray


Sub Macro2()
Dim cell as Range
for each cell in selection
Select Case cell.Interior.ColorIndex
Case 46 'Color from 6th row 6th over
cell.Value = "Severe"
Case 20 'Green
cell.Value = "Slight"
Case 26 'Yellow
cell.Value = "Minor"
End Select
Next Cell
End Sub