autoshapes round 2
 

The code:

ActiveSheet.Shapes.SelectAll
Selection.Delete

Deleted all the Autoshapes. It also deleted all the
buttons and dropdown boxes, too. How can I just delete
Autoshapes without deleting buttons etc.?

autoshapes round 2
 

Sub a()
Dim X As Shape
For Each X In ActiveSheet.Shapes
If X.Type = msoAutoShape Then X.Delete
Next
End Sub


--
Jim Rech
Excel MVP
"scrabtree" wrote in message
...
| The code:
|
| ActiveSheet.Shapes.SelectAll
| Selection.Delete
|
| Deleted all the Autoshapes. It also deleted all the
| buttons and dropdown boxes, too. How can I just delete
| Autoshapes without deleting buttons etc.?
|