deselect chart

  • Thread starter Thread starter MikeF
  • Start date Start date
M

MikeF

Need to select all shapes and delete them.
However there is a chart - "Chart1" - that needs to be deselected, as it
needs to remain on the sheet.

Have made numerous attempts, this one seems to make sense but doesn't work....
ActiveSheet.Shapes.SelectAll
ActiveSheet.Shapes("Chart1").Deselect

How do I select all shapes, then deselect Chart1?

Thanx,
- Mike
 
I have not tried this, but it might work.

Sub dk()
For Each s In ActiveSheet.Shapes
If s.Name <> "Chart1" Then
s.Delete
End If
Next
End Sub
 
Back
Top