(Excel VBA) 縮小して全体を表示するコマンドをボタンにする

「縮小して全体を表示する」って割と使うと思うんですけど、ボタンがないんですよね。いつもわざわざ「セルの書式設定」開いて設定してるんですが、正直面倒くさいですよね。なので、VBAでコマンド作ってボタン化しています。

コード

Sub DisplayWholeByReducing()
    ' ◆◆◆ 縮小して全体を表示するコマンド ◆◆◆
    With Selection
        .WrapText = False
        .ShrinkToFit = True
    End With
End Sub