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


--
Dr.Ile
------------------------------------------------------------------------
Dr.Ile's Profile: http://www.excelforum.com/member.php...o&userid=15975
View this thread: http://www.excelforum.com/showthread...hreadid=527961

Hi Dr. Ile,

Your question appears ambiguous.

However, try changing:

For Each SHP In ActiveSheet.Shape

to

For Each SHP In ActiveSheet.Shapes


---
Regards,
Norman



"Dr.Ile" wrote in
message ...

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


--
Dr.Ile
------------------------------------------------------------------------
Dr.Ile's Profile:
http://www.excelforum.com/member.php...o&userid=15975
View this thread: http://www.excelforum.com/showthread...hreadid=527961

Dr.Ile,
From your code it looks like you are trying to delete all shapes except
"Group 8".
Anyway, For Each.. requires a collection, so it is "ShapeS", not "Shape".
You would found an error on this line when you tried to run it.

NickHK

"Dr.Ile" wrote in
message ...

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


--
Dr.Ile
------------------------------------------------------------------------
Dr.Ile's Profile:
http://www.excelforum.com/member.php...o&userid=15975
View this thread: http://www.excelforum.com/showthread...hreadid=527961