Sub ShapesRange() With ActiveLayer.Shapes MsgBox "There are " & .Count & " shapes in the Shapes collection." .Range(Array(1, 4)).Delete MsgBox "There are " & .Count & " shapes in the Shapes collection." End WithEnd Sub