title: EXCEL VBA Vertical Text
body: <p>I'm just wondering if it's possible to set a text as <strong>VERTICAL TEXT</strong> when the <strong>MergeCells</strong> script is used.</p>
  <p>The MergeCells' output resembles the Official Town Fiesta and Bonifacio Day. However, the desired output must resemble the All Saints' and All Souls' Day columns.</p>
  <p><a href="https://i.stack.imgur.com/XjaRD.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/XjaRD.png" alt="Picture" /></a></p>
  <pre><code>Sub MergeCells()
      Application.ScreenUpdating = False
      ActiveSheet.Unprotect &quot;123&quot;
      
      With Selection
          .Merge
          .HorizontalAlignment = xlGeneral
          .VerticalAlignment = xlCenter
          .ShrinkToFit = True
          .Orientation = 90
       End With
   
      ActiveSheet.Protect &quot;123&quot;, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True
      Application.ScreenUpdating = True
  End Sub
  </code></pre>