EXCEL VBAで、セル内の文字を改行で分割表示

Question

環境は、Windows 7 Pro SP1、Office 365 ProPlusです。

EXCEL VBAで、セル内の文字を改行で分割表示する以下のコードを
実行しても改行されないのですが、該当セルをダブルクリックすると
改行表示されます。

該当セルをダブルクリックしなくても、改行されるようにしたいのですが
どうすればよいでしょうか？

Range("A1").Value = "AAA" & vbLf & "BBB"

＜試してみたこと＞

以下を試してみましたが、現象変わらずでした。

１．Application.DoubleClick メソッドを追加

Range("A1").Activate
Application.DoubleClick

２．SendKeyで当該セルを編集モードにする

Range("A1").Activate
SendKeys "{F2}"

Answer 1

Range("A1").Value = "AAA" & vbLf & "BBB"
Range("A1").WrapText = True
これで行きませんか？

Comments

[SYO_chan]

教えていただいた方法で、できました。
ありがとうございました。