Style.Orientation (Excel)

Returns or sets an XlOrientation value that represents the text orientation. Possible return values are xlDownward - Text runs downward, xlHorizontal - Text runs horizontally, xlUpward - Text runs upward, xlVertical - Text runs downward and is centered in the cell.

ActiveCell.Style.Orientation = xlDownward