Activesheet.Range("B:IV").ClearContents
for each shp in ActiveSheet.Shapes
shp.delete
Next

--
Regards,
Tom Ogilvy



"Rick" wrote in message
...
Hello;

I have an Excel spreadsheet which I use to import images and create sort
of a product catalog. It's working great.

However, I'm unable to come up with code that works for clearing/resetting
the page. I've tried 3 or 4 different ways without any success.

What I need to do is clear all cell contents and shapes (images) within
every column but "A". Anybody have a code sample that would do this??

Thanks in advance for your help. I appreciate it!

Rick