Seems overly complicated to me. If it fits into what you want to
accomplish, why not force the plotarea to be squa

sub squarechart()
With activechart.plotarea
h=.height
.width=h
end with
end sub

this will force the plotarea to be square. I'm not sure how closely
this will force the axes to be equal in length, but that could be
checked (using the height/width properties of the axis object) and the
width/height of the plotarea adjusted accordingly.

Note that I've assumed that height is the smaller dimension. If width
is the smaller dimension, switch the height and width accordingly.


--
MrShorty
------------------------------------------------------------------------
MrShorty's Profile: http://www.excelforum.com/member.php...o&userid=22181
View this thread: http://www.excelforum.com/showthread...hreadid=388441