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