Sub Test() Dim s As Shape, eff As Effect, zip As EffectZipperDistortion Dim sr As New ShapeRange For Each s In ActivePage.Shapes For Each eff In s.Effects If eff.Type = cdrDistortion Then If eff.Distortion.Type = cdrDistortionZipper Then Set zip = eff.Distortion.Zipper If zip.Smooth And zip.Random And Not zip.Local Then sr.Add s End If Exit For End If Next eff Next s sr.CreateSelection End Sub