選択したセルの幅を同じ比率で変更する

印刷しようとしたら余白がかなり余っている。
全体的に表のセルの幅を同じ倍率で広げてその余白を埋めようとしたけど、そのような機能は調べても出てこない。全て同じ幅にするというのは出てくるんだけどそうじゃないんだよなぁ。1つ1つ変更するのも面倒だったのでマクロでできないか調べてみた。

参考サイト

Yahoo知恵袋
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10148967640

インストラクターのネタ帳
https://www.relief.jp/docs/018031.html

作ったコード

Sub 選択したセルの幅を変更する()
  Dim rng As Range
  For Each rng In Selection.Columns
    rng.ColumnWidth = rng.ColumnWidth * 1.1
  Next
End Sub

できた:)