hacer celdas cuadradas

hola, JPF !

... crear celdas completamente cuadradas ... no me puedo fiar ni del ancho ni del alto que me da.

toma nota de lo siguiente con respecto de las propiedades 'de medidas' de los objetos...
-> Width y RowHeight 'devuelven' una medida en puntos [1/72 de pulgada... 72 pixeles por pulgada]
-> ColumnWidth 'devuelve' el ancho de la columna [basado en la fuente 'normal... en uso']
-> Zoom [aplicable a un objeto Window] 'afecta' la 'proporcionalidad' entre ambos 'tipos' de medida
-> la resolucion 'de salida' [impresora] puede 'mostrar' proporcionalidades 'diferentes' [vs. pantalla]
-> en las propiedades de la pantalla [windows] cada usuario puede 'personalizar' los puntos por pulgada
-> se necesita 'factorizar' las diferentes unidades de medida [etc. etc. etc.]

el ejemplo que te expongo al final, 'ajusta' las dimensiones de la celda activa a un 'cuadrad' de +/- 10 cms
puedes adaptarlo para 'trabajar' con grupos/bloques de celdas y/o por medio de bucles/ciclos
NO 'te aseguro' que las medidas sean 'exactas' [por los factores que te menciono] :(
pero.. de que la celda 'se cuadra'... ¡ dalo por hecho !!! :))
saludos,
hector.
en un modulo de codigo 'normal' ==Sub CuadrarCeldaActiva()
Dim Cms As Double, Fx As Double
Cms = 10
With ActiveCell
.ColumnWidth = Cms
Fx = .Width / .ColumnWidth
.ColumnWidth = Application.CentimetersToPoints(Cms) / Fx
Fx = .Width / .ColumnWidth
.RowHeight = .ColumnWidth * Fx
End With
End Sub