Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Fill.Type = cdrUniformFill Then With s.Fill.UniformColor If .Type = cdrColorRGB Then If .RGBRed = 255 And .RGBGreen = 0 And .RGBBlue = 0 Then s.Delete End If End With End If Next s End Sub