Excelで任意の細かさの方眼用紙を作る

#趣旨
私は図を描くとき、Excel上で作業することが多いです。複数の図形が整然と並ぶように、以前は、列幅を「1.63」にして、方眼用紙を作って作業していました。ご存知の方が多いと思いますが、Altキーを押しながらマウスをドラッグすると、図形の位置やサイズがセルの位置に揃います。
手元の環境（Windows10+Excel2016）だと、フォントが「游ゴシック」に代わったためか、セルが正方形になりません。そこで、vbaを使い、任意の目の細かさの方眼用紙を作ったので、その方法をご紹介します。
#手順

1. Excel上で、「alt+F11」を押下すると、VBEが開く
2. VBE上で、「Ctrl+G」を押下すると、イミディエイトウィンドウが開く
3. イミディエイトウィンドウで、次のコマンドを実行する（貼り付けて、その行にカーソルを置き、改行キー押下）

cells.columnwidth=2:cells.rowHeight=range("A1").width

※ 別のサイズが良ければ、上の「2」を任意の数値に置き換えて実行する
#補足
罫線に強弱をつけるには、次のようなコマンドで罫線を書くことができます。「100」や「5」を変更すると、範囲や細かさが変わります。

for i=1 to 100:columns(i).Borders(xlEdgeleft).LineStyle=iif((i-1) mod 5,xlNone,xlContinuous):next

for i=1 to 100:rows(i).Borders(xlEdgetop).LineStyle=iif((i-1) mod 5,xlNone,xlContinuous):next