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
Bookmarks