Deleting Shapes stops drop down lists from working

[goncalocoelho]

Hi! I'm new to the forum and to VBA code, and I'm in need of some help.
I'm currently working on a form type of sheet in Excel and I have a macro that validates certain cells as Lists. This all works fine until I add a sub to delete shapes in the Sheet.
The sub that causes this problem is the following:

Sub delete_shp2()

Dim shp2 As Shape

    For Each shp2 In Sheets("Form").Shapes

    If shp2.Name = "Description" Then
    
    Else
    
    shp2.Delete
    
    End If
    Next shp2
End Sub

The sub works and delete all the shapes except the one named "Description" as it is intended, but it also makes all the drop down lists unusable.

Hopefully the pictures bellow will help understand my problem,

Hopefully some of you guys can help me understand why this isn't working.

This is before i ran the Sub delete_shp2(), all the dropdowns lists are working fine

And then, when i run the macro, the little box that allows for the list selection disappear in all of the dropdown cells

 

[Fluff]

Hi & welcome to MrExcel
How about

If shp2.Name = "Description" or shp2.Name Like "Drop Down*" Then

 

[goncalocoelho]

Hi & welcome to MrExcel
How about

If shp2.Name = "Description" or shp2.Name Like "Drop Down*" Then

It Worked! Thank you so much @Fluff .
From my understanding of your reply, does VBA deals with the little arrow of the drop down as a shape too?

 

[Fluff]

Yes I think it does. Although if you save the workbook, the dropdown arrows reappear.