Sorting

O

olasa

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
 
Top