Sub Test() Dim sr As ShapeRange Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) MsgBox "There are " & sr.Count & " ellipse(s) on the current page"End Sub