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