Rearranges the text in a range so that it fills the range evenly.
expression.Justify
expression Required. An expression that returns a Range object.
Remarks
If the range isn’t large enough, Microsoft Excel displays a message telling you that text will extend below the range. If you click the OK button, justified text will replace the contents in cells that extend beyond the selected range. To prevent this message from appearing, set the DisplayAlerts property to False. After you set this property, text will always replace the contents in cells below the range.
Example
This example justifies the text in cell A1 on Sheet1.
Worksheets("Sheet1").Range("A1").Justify