Deleting Shapes

**Dean81** · 11-25-2011, 11:14 AM

Hello all!

I have a macro that will add text boxes to a form template depending on the contents of cell D4:

Please Login or Register  to view this content.

It goes on to add another 6 text boxes to the template. If D4="FS" then it adds another 8 boxes. I want to be able to delete the boxes using a macro but can't work out how to tell it that if boxes 8 and 9 are there then delete them and if not then carry on. At the moment it gives me an error message if 8 and 9 aren't there.

I have other shapes in there so I can't do delete all shapes.

I hope that makes sense!

Thanks,

Dean

**Richard Buttrey** · 11-25-2011, 11:23 AM

Hi,

If it helps I recently wrote the following code to delete all shapes on a sheet - with exceptions as necessary. You may be able to adapt it.

Please Login or Register  to view this content.

**Dean81** · 11-25-2011, 12:11 PM

Thanks Richard. Unfortunately I can't get it to work. Could be due to my editing!

What I want is the macro equivelent of saying to someone "If you find the text box called 8 delete it, if not, no worries"

The rest of this spreadsheet is working really well and this is leterally the last thing I need to do to it! So frustrating!

**Richard Buttrey** · 11-25-2011, 01:00 PM

Hi,

In that case just

Please Login or Register  to view this content.

**snb** · 11-25-2011, 01:25 PM

Why so complicated ?

You can have all these ActiveX-controls in the worksheet, set to visible=false.
If you need them to be visible dependent on the values in the worksheet you can use .visible=true.