Sub LayerActive() ActiveLayer.CreateEllipse 3, 3, 2, 1 ActiveDocument.Selection.Shapes(1).Fill.UniformColor.CMYKAssign 100, 0, 100, 0End Sub