Excelマクロ：方眼ノートみたいな

Excelでまとめを作れという課題をやるにあたって、セルを成形するのが大変だったのでマクロで作った。
A～ZZまでを方眼ノートみたいに調節

表示でページレイアウトにしたら丁度いい具合に収まるようにサイズを調整してある。

マクロ実行結果

Sub ノート()
  Columns("A:Z").Select
  Selection.ColumnWidth = 2.63
  For Count = Asc("A") To Asc("Y")
    Columns(Chr(Count) & Chr(Count + 1) & ":" & Chr(Count + 1) & Chr(Count)).Select
    Selection.ColumnWidth = 2.63
    Columns(Chr(Count) & Chr(Count)).Select
    Selection.ColumnWidth = 3.88
    Selection.Interior.Color = RGB(255, 245, 245)
  Next
  Columns("ZZ").Select
  Selection.ColumnWidth = 3.88
  Selection.Interior.Color = RGB(255, 245, 245)
  Range("A1").Activate
End Sub