VBA to delete ALL objects EXCEPT the following...

[KP_SoCal]

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?

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

 

[shg]

Maybe ...

Sub DeletesShapes()
    Dim o As Object
    

    For Each o In ActiveSheet.DrawingObjects
        If o.Name <> "shapeButton1" And o.Name <> "shapeOption25" Then
            o.Delete
        End If
    Next o
    On Error GoTo 0
End Sub

EDIT: The comparison is case-sensitive as written.

 

[KP_SoCal]

Thanks so much! This is precisely what I was looking for.

 

[shg]

You're welcome