How to delete specific objects from a sheet?

[rizwanulhasan]

Hi all,

Trust you all doing well.

Need a help with regards to the attached sheet.

The file contains a macro "Clear" which deletes specific cells in the worksheet.

In addition to this , i want the same macro to delete all the objects appearing only under column A (highlighted in Red) and not the two objects in Row 1 (highlighted in Green).

When i go to special and select objects, it selects all. Can someone please help?

Thanks in advance.

[ByteMarks]

Does this work for you?

Sub Test()
Dim shp As Shape
For Each shp In Sheet1.Shapes
    If shp.TopLeftCell.Row >= 4 And shp.TopLeftCell.Column = 1 Then
        shp.Delete
    End If
Next
End Sub

[rizwanulhasan]

@ByteMarks

Works perfectly.

Thanks a ton.

[ByteMarks]

You're very welcome. Thanks for the feedback.