View Single Post
 
Old 11-03-2018, 06:51 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2016
Expert
 
Join Date: Apr 2014
Posts: 948
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

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.
Reply With Quote