1,511 questions
Please see the following from https://forum.ozgrid.com/forum/index.php?thread/1228094-delete-shapes-in-specific-column/ (answered by jolivanes)
Sub Maybe()
Dim ws As Worksheet, shp As Shape
Set ws = ActiveSheet '<---- Change to proper sheet name if so desired
For Each shp In ws.Shapes
If Not Intersect(shp.TopLeftCell, Range("A2:C100")) Is Nothing Then shp.Delete
Next shp
End Sub
Change your range in the code above.
------------------------------
If this is helpful please accept answer.