Sub Test() Dim s As Shape Set s = ActiveSelection.Shapes(1) If s.Fill.UniformColor.CMYKYellow > 50 Then s.Delete End IfEnd Sub