Sub Test() Dim sr As ShapeRange Set sr = ActiveLayer.FindShapes(, cdrCurveShape) If sr.IndexOf(ActiveShape) = 0 Then MsgBox "The selected shape is not a curve residing on the current layer" End IfEnd Sub