Apply format to selection

Brief description:

Full description:

Code:

Option Explicit

'For selected cells, set indentation to 0
Sub ApplyFormatting()
    Dim SelRng As Range
    Set SelRng = Selection
    
    With SelRng
    
'        .HorizontalAlignment = xlLeft
'        .HorizontalAlignment = xlCenter
'        .HorizontalAlignment = xlRight

'        .VerticalAlignment = xlTop
'        .VerticalAlignment = xlCenter
'        .VerticalAlignment = xlBottom

'        .WrapText = False

'        .Orientation = 0

'        .AddIndent = False
'        .IndentLevel = 0
        
    End With
    
End Sub