DELETING SYMBOLS

[aoc]

Hi,

how can I delete symbols in the row 52 and 53 in the attached file ?

regards

[Bob Phillips]

Run this bit of code.

For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp

[aoc]

can I delete without code ?


with code it deletes all of them not only the shape in row 52 and 53

[mdmackillop]

Try
Sub DelShapes()
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row = 52 Or shp.TopLeftCell.Row = 53 Then
shp.Delete
End If
Next shp
End Sub

[aoc]

hi,

runtime error 1004

application-defined or object-defined error

what is the problem ?

[mdmackillop]

On what line does the error occur?
Here's a slight modification to help show where the shapes are found
Option Explicit

Sub DelShapes()
Dim shp As Shape
MsgBox ActiveSheet.Shapes.Count
For Each shp In ActiveSheet.Shapes
shp.TopLeftCell.Interior.ColorIndex = 7
If shp.TopLeftCell.Row = 52 Or shp.TopLeftCell.Row = 53 _
Or shp.TopLeftCell.Row = 54 Then
shp.TopLeftCell.Interior.ColorIndex = 6
shp.Delete
End If
Next shp
MsgBox ActiveSheet.Shapes.Count
End Sub

[aoc]

hi,

B53 becomes yellow.message says 26 then gives same error.
error line is shp.Delete

regards

[mdmackillop]

:dunno I can't replicate the error. The yellow cell shows a shape has been found. You could try changing the code a bit to see in any shapes are deleted.
shp.TopLeftCell.Interior.ColorIndex = 6
MsgBox ActiveSheet.Shapes.Count
shp.Delete

[aoc]

hi,

I could not solve the problem. please check the attached file. I want to delete the shapes in 52 and 53

regards

[mdmackillop]

Try unprotecting the sheet.