Sub delete()
Dim Shp As Shape
Dim C As Range, DerLig As Long
DerLig = [A65536].End(xlUp).Row
For Each C In Range("A2:A" & DerLig)
For Each Shp In ActiveSheet.Shapes
If Shp.TopLeftCell.Row = C.Row Then Shp.Visible = Range("A" & C.Row) <> ""
Next
Next
End Sub