A little trouble with shapes

[fredrerik84]

Im trying to remove most of my shapes from my sheet but a few of them Id like to keep They are in cell S21 and ab21

the range of cells i want to delete are stored in range(a27:BS & last row")

Ive tried like this

     Set Rng = Range(Cells(26, "C"), Cells(lr, "P"))
     
     For Each sh In ActiveSheet.Shapes
        On Error Resume Next
        If Intersect(Rng, sh.TopLeftCell) Is Nothing Then
        Else
           sh.Delete
       End If
     Next sh

But this codes still deletes shapes in S21 and ab21 , which I like to keep. they are Rounded Rectangles 10 shapes total. No mater what I try they get deleted.

Anyone know how I can keep them ?

frederik

 

[PatOBrien198]

Another approach would be to add some text to the "Alternative Text" property of the pics that you do not want to delete.

Then the code would be something like:

for each sh in ActiveSheet.Shapes

    if sh.AlternativeText <> "Don't delete me" then sh.Delete
    
next

This way, it would not matter where on the sheet the shapes are that you don't want to delete.