Sub ClearANDSetNewFormat_WordWrap_Top_Alignment() ' ' Macro1 Macro ' ' Selection.ClearFormats 'clears the formats from the selection With Selection 'sets new format .HorizontalAlignment = xlGeneral ' sets horizontal alignment to default .VerticalAlignment = xlTop 'sets verticle alignment to top .WrapText = True 'Sets wordwrap to on .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub