Hi,
I have sheet, where there is a picture named Object 1 (an in formula bar is
formula =INSERT("Word.Picture.8";"") ) - this I need to leave on the Sheet.
Then there is Group11, which I need to delete

I have this part of macro but it deletes both objects.


Sheets(hlavni).Select
ActiveSheet.DrawingObjects.Delete

I tried also this code, but it didn't find anything.

For Each shp In ActiveSheet.Shapes
If shp.Type = msoGroup Then
shp.Delete
End If
Next shp

Could anyone find a mistake?

Thanks karmela