セルに余白を付ける

Excelって、セルに余白（Padding）を付けれないのが何気に不便です。
（Excelをそのように使うのがそもそも間違いなんだろうけど・・）

そこで上下に余白を付けるマクロ。
行の高さを自動調整して、余白を足しています。
セル内の上下位置は真ん中指定で。

Sub 行高さ調整()
    Dim selected As Range
    Dim padding As Integer
    
    padding = 5
    
    '選択範囲のチェック
    If TypeName(Selection) <> "Range" Then
        MsgBox "調整したいセルを選択してください"
        Exit Sub
    End If

    '選択範囲を自動調整する
    Selection.EntireRow.AutoFit
        
    For Each selected In Selection.Rows
            '余白を増やす
        selected.RowHeight = selected.RowHeight + padding * 2
    Next selected
    
End Sub