Sub Colorindex()
'Выдает в сообщение использованный цвет
MsgBox ActiveCell.Interior.Color
End Sub

 

Реклама