Excel ヘッダーの改行反映について

質問

いつもお世話になっております。
　Excel VBAにて困っております。ご存知の方、お力添えお願い致します。

質問は、ExcelのVBAにてヘッダー内に改行を含む文字列を代入しています。
更新後開いてみると、改行が上手く反映されず文字が重なっている状態となります。
尚、クリックし一度修正モードにすると改行します。
また、ヘッダーを更新したいExcelは、マクロが起動しているExcelとは別のExcelとなります。
何か更新の仕方を誤っているのでしょうか。
ご教示お願い致します。

具体的な内容は以下の通りです。
OS Windows7、Excel2010
シートの回数ループしヘッダーを更新しております。
With wb.Sheets(i).PageSetup
.RightHeader = "&R" & fild1 & fild2 & vbCr & "&R" & filename1 & "&A"
End With

それではどうぞ宜しくお願い致します。

回答No.2

kkkkkm · ベストアンサー

"&R"を一個だけにしてみてください。2013だとこれでうまくいきました。
"&R" & fild1 & fild2 & vbCr & filename1 & "&A"

お礼

kkkkkm 様

　上手くいきました！！
本当ありがとうございました。

今後も宜しくお願い致します。

回答No.3

kkkkkm

No2の追加です。

"&R"なくていけますね。
fild1 & fild2 & vbCr & filename1 & "&A"

ちなみに
.RightHeader "&L"
こんな指定だと左ヘッダーになりました。 "&L" と"C&"と"&R"は用紙全体での位置指定になるようですね。それが正しい動きなのか、いわゆる"仕様"なのかどうかはわかりませんでした。

回答No.1

kkkkkm

vbCrをvbCrLfに変更してみてはいかがでしょう。

お礼

kkkkkm 様
　早々のご回答ありがとうございました。
vbCrLfに変更してみましたが、状況は変わりませんでした。
その他、直接Chr(10)やChr(13)も試してみましたが状況変わらず。
また何かアドバイス頂けたら幸いです。
宜しくお願い致します。

補足

vbCr手前の変数に問題があるのかと思い、"test"と文字列に変え
.RightHeader = "&R" & "test" & vbCr & "&R" & filenam1 & "&A"としましたが、状況変わらずでした。