Excel ヘッダーのフォントの編集

質問

お世話になってます。マクロ初心者です。
A37に文字が入っていて、それをヘッダーにしたいと考えています。
Sub Header()
With ActiveSheet.PageSetup
.CenterHeader = Range("A37").Value
End Sub
とすることで、文字を入れることはできました。
後はフォントをHGP創英角ポップ体,ヘビー、フォントサイズを36にしたいのですが、
ネットで探してもセルの番号と組み合わせた例がなくて、うまくいきません。
よろしくお願いします。
ちなみに、A37には=&B35&A36　が入っていて、B35には=TEXT(A35,"[DBNum3]m")、
A35には2012/1/1など日付が入ります。A36には文字で月分予定と入ってます。
初めはヘッダーを直接編集したのですが、うまくいかずマクロでやってます。

回答No.1

keithin · ベストアンサー

＞フォントをHGP創英角ポップ体,ヘビー、フォントサイズを36にしたい

新しいマクロの記録でマクロに録ってみると，殆どそのまま使えるサンプルが手に入ります。
ActiveSheet.PageSetup.CenterHeader = "&""HGP創英角ポップ体,太字""&36" & range("A37").value

＃こちらの質問相談掲示板の仕様で，回答のマクロでは正しく実行できないと思われます。
　アナタのエクセルで実際に記録を取って作成してください。

お礼

できました！助かりました。ありがとうございました。