Delete All Objects On Activesheet

[TopJack]

I'm sure this is an easy one for you VB Gurus.

I want to delete all shape objects on an Activesheet.

I am adding objects using this method :-

ActiveSheet.Shapes.AddShape(msoShapeOval,10,10,5,5).Select

I know I should have this one in the bag, but tonight I seem to have a mental block.

Any help would be appreciated. Thanks.

 

[xlbo]

summat like dis ??
For each shp in activesheet.shapes
shp.delete
next Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde

 

[TopJack]

Thanks Geoff. Perfect. From your help I actually used this .......

Set myDocument = Worksheets(1)

For Each sh In myDocument.Shapes
sh.Fill.ForeColor.RGB = RGB(255, 0, 0)
Next

 

[TopJack]

Sorry I pasted the wrong code.

This is what I actually used .....

For Each sh In ActiveSheet.Shapes
If sh.AutoShapeType = msoShapeOval Then
ActiveSheet.Shapes.Range(sh.name).Delete
End If
Next

I'm sure there is other ways to do this, but this works great.