Hello

I’m trying to delete grouped shapes objects with name “Group 8”. On the sheet are also other shape object (not grouped) which I won’t to delete. The code which I write won’t work. I thing that something is wrong the name, but I don’t know what. Can you help me.

Sub Delete_shapes()
Dim SHP As Shape
For Each SHP In ActiveSheet.Shape
If Not SHP.Name = "Group 8" Then
SHP.Delete
End If
Next SHP
End Sub

Than you

Drile