If you were wary, now, it wouldn't be a trap!

I never thought about this either. I wonder if it hoses the AutoFilter
dropdowns as well.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"Brettjg" wrote in message
...
Thanks Peter, that'll do it. Talk about a trap for the unwary! Regards,
Brett

"Peter T" wrote:

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