Insert a seperate Column.
Then write this formula =CellColor(A2) and copy down the formula
To make the =CellColor(A2) function work: Alt+F11 > Insert Module >
Copy and paste the below VBA-code:
Public Function CellColor(myCell As Range) As Variant
Application.Volatile True
CellColor = myCell.Interior.ColorIndex
End Function
Ola Sandstrom