salve
Senza garanzia..! da provare
Sub provaCancShapes()
Set area = ActiveSheet.Range("E15:E50")
For Each shpX In ActiveSheet.Shapes
x = shpX.TopLeftCell.Address
Set isect = Intersect(Range(x), area)
If Not isect Is Nothing Then
shpX.Delete
End If
Next
Set rng = Nothing
End Sub
La macro qui sopra, cancella tutte le forme che si trovano nell'area E15:E50
modifica l'area a tuo piacimento.
saluti
Giap
