Hello. I had no problem downloading the template. My security settings are
set high, so I had a prompt for ActiveX controls. Once I selected ok, it
downloaded with no problems.
To square a cell, Excel needs to do it in a loop. Not too long ago, someone
posted a neat solution. However, I apologize because I can't find the
name of the poster. I've search the newsgroups, and Google, but had no luck
finding this post.
Anyway, his general solution is the following. Set the Row height to what
you want, then run the macro to adjust the column widths.
Sub SquareAllCells()
Dim i As Long
Dim cw
Dim w
Dim h
Cells.ColumnWidth = Rows(1).Height
With Cells(1)
For i = 1 To 5
cw = .EntireColumn.ColumnWidth
w = .EntireColumn.Width
h = .EntireRow.Height
Cells.ColumnWidth = (cw / w) * h
Next i
End With
End Sub
--
Dana DeLouis
Win XP & Office 2003
keith said:
DD and DD? What are the odds of that? Thanks to both.
Followed the directions but couldn't get the sheet to open. But, then
again, there's a pretty good chance I don't know what I'm doing. I'll try
again. As for playing with cell dimensions, it is a bit strange. A square
on
the screen isn't square on the printed page and vice versa. And even if
you
tell the column or row what size to be they might decide to be something
just slightly different. Perhaps what I want to do isn't what excel was
intended for.