"Todd" wrote:
... How can I easily make cells in Excel that are square?
Seems such a simple request, but I cannot find a simple answer.

Try the response by PaulB in this thread:
http://tinyurl.com/8ytqu
where he posts a sub MakeSquare for the purpose
(sub is pasted below for easy ref)

Steps
--------
Select the range (or try selecting entire sheet)
Run the sub by pressing Alt+F8,
select "MakeSquare" in the Macro dialog, click Run
Answer the inputbox by entering say: 0.1, 0.1
then click OK
When the sub completes, you'd get the result !

'----- sub posted by Paul B ---
Sub MakeSquare()
Application.ScreenUpdating = False
Dim WPChar As Double
Dim DInch As Double
Dim Temp As String

Temp = InputBox("Height and width in inches?")
DInch = Val(Temp)
If DInch 0 And DInch < 2.5 Then
For Each c In ActiveWindow.RangeSelection.Columns
WPChar = c.Width / c.ColumnWidth
c.ColumnWidth = ((DInch * 72) / WPChar)
Next c
For Each r In ActiveWindow.RangeSelection.Rows
r.RowHeight = (DInch * 72)
Next r
End If
Application.ScreenUpdating = True
End Sub
'------------
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---