Sub VerticalText()
Dim R As Range
Application.screenupdating = false
For Each R In Selection
With R
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = xlVertical
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
R.Rows.AutoFit
Next R
Application.screenupdating = true
End Sub