This is an old revision of the document!

Microsoft Excel - Macros - Get Color

Function GetFillColor(Rng As range) As Long
  GetFillColor = Rng.Interior.ColorIndex
End Function

Usage

Get the Excel Color Number

=GetFillColor(Cell No)