En realidad, tuve el mismo problema en el pasado. Lo que mejor funciona para mí es el siguiente código VBA. Encontré la relación lineal sólo por ensayo y error.
El código funciona para celdas individuales, pero también para una selección. En este último caso, los cuadrados se basan en el ancho o alto total de la selección.
Sub MakeCellSquareByColumn()
Selection.RowHeight = Selection.Width / Selection.Columns.Count
Selection.ColumnWidth = (((Selection.Width / Selection.Columns.Count) / 0.75 - 5) / 7)
End Sub
Sub MakeCellSquareByRow()
Selection.ColumnWidth = (((Selection.Height / Selection.Rows.Count) / 0.75 - 5) / 7)
Selection.RowHeight = Selection.Height / Selection.Rows.Count
End Sub
Puedes poner estas macros en un Módulo y asignarles botones en la barra de herramientas de acceso rápido
Ten en cuenta que los cuadrados desaparecen (al cambiar el ancho de la columna) cuando cambias el tipo o tamaño de la fuente. Esto se debe a la forma en que Excel calcula el ancho de la columna. Observa: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel