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


"MikeF" <(E-Mail Removed)> wrote in message
news:050FE605-BA9F-477B-AAE2-(E-Mail Removed)...
>
> 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

try ActiveWindow.Visible = False