Здравствуйте.  
Среди приемов описана функция Color Index,    
 
Public Function ColorIndex(Cell As Range)  
   ColorIndex = Cell.Interior.ColorIndex  
End Function  
 
однако она не работает при условном форматировании ячеек.    
 
Есть ли способ настроить функцию в том числе на заливки при условном форматировании?