KP_SoCal
Board Regular
- Joined
- Nov 17, 2009
- Messages
- 116
I'm running the sub routine below to delete all shape objects on an active worksheet. I'd like to modify this route to delete all objects except "shapeButton1" and "shapeOption25". Any suggestions?
P.S. I'm using Excel 2010
Code:
Sub DeletesShapes()
'Delete all Objects except Comments
On Error Resume Next
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.DrawingObjects.Delete
On Error GoTo 0
End Sub
P.S. I'm using Excel 2010