Get the Color Index of a cell, , eg =getcolor(A1)
Function GetColor(rCell As Range) As Long
GetColor = rCell.Interior.ColorIndex
End Function
© Copyright
andrewsexceltips.net
All Rights Reserved.