Sub Supp_Shpe()
Dim plg As Range, cell As Range, sh As Shape
Set plg = Union(Range("AJ11"), Range("AK11"), Range("AL11"), Range("AM11"), Range("AN11"), Range("AO11"), _
Range("AP11"), Range("AQ11"), Range("AR11"))
For Each cell In plg
For Each sh In ActiveSheet.Shapes
If sh.TopLeftCell.Address = cell.Address Then sh.Delete
Next sh
Next cell
End Sub