選択されたセル範囲内の全セルのインデントを解除する

Sub prcRemoveIndentFromSelection()
    ' 機能概要: 選択されたセル範囲内の全セルのインデントを解除する
    ' 引数: なし
    ' 備考: 選択された範囲内のセルにのみ適用

    Dim rngCell As Range

    ' 選択範囲内の各セルに対して処理を実行
    For Each rngCell In Selection
        rngCell.IndentLevel = 0
    Next rngCell
End Sub