Sub ShapesCount() With ActiveLayer.Shapes MsgBox "There are " & .Count & " shapes in the Shapes collection." End WithEnd Sub