And this should prevent errors...
Sub SquareUpThoseCorners_R1()
Dim shp As Excel.Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoAutoShape Then
If shp.AutoShapeType = msoShapeOval Then
shp.AutoShapeType = msoShapeRectangle
shp.Height = shp.Width
End If
End If
Next
End Sub
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html