| Name | Type | Description |
|---|---|---|
| IndexArray |
Variant
|
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 With End Sub