This deletes all the rectangles in the active workbook.

Sub DelRects()
Dim WS As Worksheet
For Each WS In Worksheets
WS.Rectangles.Delete
Next
End Sub

I don't think that's what you want to do but at least this will give you an
opportunity to clarify.

--
Jim
wrote in message
oups.com...
| 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 = _
|