auto deleting images

[thewiseguy]

Hello everyone,

I am cutting and pasting data from the web into an excel file. The paste function is bringing over small images (in this case, little stars to show the rankings of the data being copied..I.E - 1 stars, 2 stars etc).

Is there a way I can easily delete these images without deleting the actual data in the cells? Currently the only way I can do this, is by selecting each image and right click delete - this will take an extremely long time.

Any ideas?

Thanks in advance!

twg

 

[mjbeam]

For Each s In ActiveSheet.Shapes
    s.Delete
Next

 

[thewiseguy]

For Each s In ActiveSheet.Shapes
    s.Delete
Next

awesome. thank you very much.