Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Effects.Count <> 0 Then s.CreateSelection Exit For End If Next sEnd Sub