hi,,I'm new here..

I have list of cell that contain values like code, ex : JN 798. And its list have its colour (based on reference colour).
I just want to display cell values if its colour match with colour reference.

I have count colour in cell range with this code :
Function Countcolour(rng As Range, colour As Range) As Long
Dim c As Range
Application.Volatile
For Each c In rng
    If c.Interior.ColorIndex = colour.Interior.ColorIndex Then
        Countcolour = Countcolour + 1
    End If
Next
End Function
and I use formulas =CountColour([cell_range];[colour_reference]) to display how many cell that match reference colour.

Please help me to add macro / formulas that can display cell value, if its colour match to reference colour I've made.

Thanks.