Hi,
For a reason that was probably perfectly reasonable to Microsoft they use
different units of measure for column width (No of Characters in Courier 10)
and row height (Points)
A ratio of around 6.64/1 (H -W) will give you a pretty god square but you
can do it with a macro
right click the sheet tab, view code and paste this in. Select the cells you
want square and run it
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