Deleting everything from a worksheet

Question

I have a macro right now which adds stuff to a worksheet (text, formatting, pictures), then it prints the worksheet at my default printer, and then clears the worksheet.

This is the code I have right now where i is the number of times it enters data and 25 is the number of rows affected each time it adds data.

Range("A1", "I" & i * 25).Clear

My problem is that it clears the text, it unmerges cells and it removes all formatting but it does not delete the pictures. What do I need to do differently to delete them?

Answer 1

To remove pictures:

Dim s As Shape
For Each s In ActiveSheet.Shapes
    s.Delete
Next s