Sub Test() With ActiveSelection.Shapes(1).Fill.UniformColor .YIQAssign 100, 255, 255 MsgBox .YIQChromaQ End WithEnd Sub