VBA 折り返して全体を表示するコードを記載したい

Question

A9〜A列の最下行までに、タイトルに記載の機能を適用したいです。

以下コードを入力した所、「アプリケーション定義またはオブジェクト定義のエラーです」とでてしまったのですが、どの様に修正すれば宜しいでしょうか。

※LineEndを、最下行を格納する変数として上で定義しています。

Range(Cells(9,1),Cells(9,LineEnd)).WrapText=True

Comments

[m.ts10806]

そもそもRangeで正しく取得できてるのでしょうか。

Answer 1

Range(Cells(9, 1), Cells(lineEnd, 1)).WrapText = True

としてください。