Avoid deleting Drop Down shapes contained in cells validation lists

[drom]

Hi and thanks in advance !

I have a CRM sheet where I am inserting some images (X images using a macro, being X dinamic)

Some times I am deleting the inserted images using a macro:

Dim aImagesToKeep():      aImagesToKeep() = Array("bAAAs", "bConcep", _
                              "bPath", "bImport", "bSaveCRM", "bUpdateWKB", "bClearCRM", _
                              "bOpenInvoice", "bCRM_Group")
Dim bDelete As Boolean
  Dim YAs Single
Dim X as Byte                          
  For Each SHP In Sheets(wsCRM).Shapes
    bDelete = True:                       Y= Y+ 1
    For X = LBound(aImagesToKeep) To UBound(aImagesToKeep)
      If LCase(SHP.Name) = LCase(aImagesToKeep(X)) Then
        bDelete = False:                  Exit For
      End If
    Next X
    If bDelete Then
      Debug.Print SHP.Name, X, Y
      SHP.Delete
    End If
  Next SHP

My CRM sheet contains many cells with data validation lists, some tables with the header with arrows, somer cells with Comments, some pivot tables...

Sometimes looks like this macro deletes the "Drop Down Nº" . cells's listboxes etc...

How can avoid this ??

I would like to delete the inserted shapes,, pictures
Not the arrows etc on the cells