Sub Test() Dim c As New Color Dim idx As Long c.CMYKAssign 100, 0, 0, 0 idx = ActivePalette.GetIndexOfColor(c) MsgBox "Cyan color is at index " & idxEnd Sub