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