Sub Test() With ActiveLayer.Shapes .AllExcluding(Array(1, 2)).Delete MsgBox "There are " & .Count & " shapes in the Shapes collection." End WithEnd Sub