Ken,
It is approximately 5.69/1 But that means doing it manually. I believe a
macro is a better solution.
Paste this macro in a module select your range and run it for square cells
Sub SqCells()
Inches = Val(InputBox("Height - width in inches?"))
If Inches > 0 And Inches < 2.5 Then
For Each c In Selection
myval = c.Width / c.ColumnWidth
c.ColumnWidth = ((Inches * 72) / myval)
Next c
For Each R In Selection
R.RowHeight = (Inches * 72)
Next R
End If
End Sub
--
Mike
When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.