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