You could include any of these checks before deleting the DV dropdown

If TypeName(sh.DrawingObject) < "DropDown" Then
If sh.Type < msoFormControl Then ' any type of Form control
If left$(sh.Name,9) < "Drop Down" Then

Regards,
Peter T



"Brettjg" wrote in message
...
In an extraordinarily weird week with VB, this is the weirdest of all. I
have :
Dim Shp As Shape

and futher on:

Range("title.1:clean.end.personal").ClearComments
'
'validation settings for cells are still there

On Error Resume Next
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next

''validation settings for cells are gone

I have isolated the code to the area between the two comments (which say
what is happening). How can this possibly be? Earlier in the macro I have
run
the identical code in a different sheet and validation settings are
unchanged. EH?
Regards, Brett