change:
Code:
If Not Intersect(shp.TopLeftCell, RngToCheck) Is Nothing Then shp.Delete
to:
Code:
If shp.Type <> msoFormControl Then
If Not Intersect(shp.TopLeftCell, RngToCheck) Is Nothing Then shp.Delete
End If
and you can keep your data validation.