For Each shp In ACtivesheet.Shapes
If shp.Name = "Box1" Or shp.Name = "Box2" Or shp.Name = "Box3" Then
shp.Delete
End If
Next shp

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


wrote in message
ups.com...
Hi,

I need to test if there are 3 named shapes (box1, box2 and box3) on the
worksheet or not. If they are present, delete them and if not then do
nothing.


Thanks,
Juuljus