there is a good chance that the rectangle has a different name on each sheet.
if you want to delete all shapes on a sheet

Sub spdel()
For n = ActiveSheet.Shapes.Count To 1 Step -1
ActiveSheet.Shapes(n).Delete
Next n
End Sub

you can make it more complex by looking for Rec in the name of the shape if
it os only retangles you want to delete

" wrote:

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 = _