I'm trying to delete rectangles from 170 worksheets in a workbook. I
tried highlighting each worksheet and it won't allow me to make the
change. I tried recording a macro to perform the function, but there
is an error message that says the rectangle is not found. Does anyone
know how to change this statement to have the macro run?

ActiveSheet.Shapes("Rectangle 4").Select
Selection.Characters.Text = _