Shapes and Deleting Shapes

[rob_h]

I have a rather complex workbook that was given to me, and the VBA coding is way over my head. The code shown below is called on when a button is clicked on the worksheet to clear all calculations and their related shapes. I have added a couple more rectangle shapes and assigned my own macros to them. When this routine runs, it deletes the shapes I've added along with the ones it is supposed to.

I need to modify this routine so that the shapes I've added can be passed over the delete action. Had a couple of ideas that failed to work, but it's probably simpler that I think. The Shape Type = is probably one way of doing this but shapes and VBA are all new to me.

Some assistance would be greatly appreciated.

Sub ShapesDelete()
    Dim MyShape As Shape, i&
    For Each MyShape In ActiveSheet.Shapes
        i = i + 2
        If i > 14 And MyShape.Type = 1 Then
            MyShape.Delete
        End If
        
'        If MyShape.name = "Rounded Rectangle 63" Then
'
'        End If
        
    Next MyShape
End Sub

[rob_h]

I forgot to mention that there are other rectangle shapes on the sheet that aren't deleted when the ShapesDelete sub is run, somehow these have been protected or otherwise excluded.

[AlphaFrog]

This will exclude some shapes by their name.
Edit the shape names to suit

Sub ShapesDelete()
    Dim MyShape As Shape, i&
    For Each MyShape In ActiveSheet.Shapes
        Select Case Shape.Name
            Case "Rounded Rectangle 63", "Rounded Rectangle 64", "Rounded Rectangle 65"
            Case Else
                i = i + 2
                If i > 14 And MyShape.Type = 1 Then
                    MyShape.Delete
                End If
        End Select
    Next MyShape
End Sub

[rob_h]

Thanks Alpha, added the MyShape to the select case statement and it works great!

[AlphaFrog]

Thanks Alpha, added the MyShape to the select case statement and it works great!

You're welcome. Good catch on my error.

[sktneer]

Or if you want to exclude the shapes which have macros assigned to them, you may try something like this...

Sub DeleteShapes()
Dim ws As Worksheet
Dim shp As Shape
Set ws = ActiveSheet
For Each shp In ws.Shapes
    If shp.Type = 1 And shp.OnAction = "" Then
        shp.Delete
    End If
Next shp
End Sub

[rob_h]

OK, I'll add that one to my notes as well.