Delete all shapes in range

[Bahal_tb]

Hi,

I've google'd this question and found a few different codes all which returns errors for me and I don't know VBA code very well.

I have made a few codes with some helpful guides I've found but this one is beating me. I have a code that draws an oval around the active cells, which I'm using as a quick way to see recent changes between users and was hoping to work out a code to delete all of the ovals created in a range with another button. (I'm working with computer novices and everything is easier when they can click a button).

Any help even a link to a guide would be greatly appreciated, thanks in advance.

Bahal

[jindon]

Just Oval?
Select the range then run

Please Login or Register  to view this content.

[Bahal_tb]

Thanks for the reply,

I'm getting the same error on this line:

Please Login or Register  to view this content.

Also, it doesn't have to be just ovals if that helps and lastly could it be a defined range eg "A2:J25".

Really appreciate the help.

[jindon]

If not only oval then

Please Login or Register  to view this content.

And I can not replicate the error that you got.
If you upload your workbook, it will help.

[Bahal_tb]

Here is an example file,

The code works for me until there are more than one shape in the selection range.

If I changed this:
Set r = Selection
To This:
Set r = Sheets.("Test").Range("A2:C26")

Would that delete the shapes in the selected area?

[jindon]

You have a period that should not be there.
Set r = Sheets.("Test").Range("A2:C26")
Changed slightly

Please Login or Register  to view this content.

[Bahal_tb]

Thanks, trying to teach myself little bits here and there so I can write these better. Thank-you for all your help on my little problem