Microsoft Excel - Macros - Colors - Get Color

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

Usage

Get the Excel Color Number

=GetFillColor(Cell No)