no, didn't test the actual code. becasue i thought you mentioned it worked

this did work for me


Option Explicit
Sub r()
Dim ws As Worksheet

For Each ws In Worksheets

With ws.DrawingObjects
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Height = 21#
.ShapeRange.Width = 24.75
.ShapeRange.Rotation = 0#
.Placement = xlMove
.PrintObject = True
End With
Next ws

End Sub

--


Gary


"Amber" wrote in message
ups.com...
Yes, but I get a runtime error on line .ShapeRange.LockAspectRatio =
msoTrue
Any other ideas?
Thanks!
Amber