Sub CreateColor1() Dim c As Color Set c = CreateColor c.CMYKAssign 100, 0, 0, 0 ActiveDocument.Selection.Shapes(1).Fill.ApplyUniformFill cEnd SubSub CreateColor2() Dim c As New Color c.CMYKAssign 100, 0, 0, 0 ActiveSelection.Shapes(1).Fill.ApplyUniformFill cEnd SubSub CreateColor3() ActiveShape.Fill.UniformColor.CMYKAssign 100, 0, 0 ,0End Sub