Get a list of colours from a range of cells

[PUGresources]

I've got a range of cells that all have different interior colours (say the range is A1:AD30) Ideally i'd like some vba code that will look through the defined range and then work out what colours are in that range and then make almost a list of them visually at the side.

For example - say my range has red, blue, green, light orange, dark grey, light grey. i'd like the vba to put red as the interior colour in Cell AL1, then blue in AL2, then green in AL3 etc. Is this possible?

Any help would be appreciated please

 

[Fluff]

How about

Sub PUGresources()
   Dim Cl As Range
   Dim i As Long
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("A1:AD30")
         .Item(Cl.Interior.Color) = Empty
      Next Cl
      For i = 0 To .count - 1
         Range("AL" & i + 1).Value = .Keys()(i)
         Range("AL" & i + 1).Interior.Color = .Keys()(i)
      Next i
   End With
End Sub

 

[PUGresources]

WOW That's literally amazing! Thank you.

I've been searching for something like this for SO long! I honestly can't believe the code for it is that short!

Thanks so much Fluff.

 

[Fluff]

You're welcome & thanks for the feedback.