VBA 結合セルの文字列を縦に変更する

Question

#実現したいこと
１列７行分の結合セルの文字列を縦方向に変更したいのですが、それって下記に記載のコードで実行できますでしょうか？

'Cells指定を利用しているため、このような記述方法を利用しています。
Range(Cells(9, cc)).MergeArea.Orientation = xlVertical

##現時点の実行結果
上記のコードのところでバグが発生しプログラムが強制終了してしまいます。

Answer 1

cellsの結果はRangeオブジェクトなので、Range(Cells(r,c))という記述はエラーになります。
単に
Cells(9, cc).MergeArea.Orientatil = xlVertical
でよいと思います。

Answer 2

まず、MergeAreaはRange型のプロパティですが、単一セル指定でのみ利用できるプロパティとなっています。
⇒参考サイト

縦書き設定をする場合は、結合範囲の一番左上のセルを指定して設定する必要があります。

単一セルの指定方法は、（たとえばA2セルの場合）一般的にはCells(2, 1)またはRange("A2")のように指定します。
Range関数でRange(Cells(2, 1), Cells(2, 1))と書いても動作しますが、それならCells(2, 1)で充分ですよね。

'Cells指定を利用しているため、このような記述方法を利用しています。
Cells(9, cc).MergeArea.Orientation = xlVertical

以上、参考になれば幸いです。