スキルアップ・問題解決なら、モーグにおまかせ！

お願いします。
シートモジュールに次のコードを入れました。
 
Private Sub Worksheet_Calculate()
    Me.PageSetup.LeftHeader = "&""游ゴシック""&10 " & Me.Range("CC1").Value & Chr(10) & ""
End Sub
 
CC1に関数が入っており、計算結果が変わったらその結果をヘッダーに反映させています。
フォントサイズを10に設定しているにもかかわらず、たまに409になることがあります。
ページいっぱいに巨大なヘッダーが表示されてしまいます。
この現象を回避する方法はないでしょうか？
よろしくお願いいたします。

フォントサイズの次に半角数字が来ると、フォントサイズと誤認識するようですね。
あるサイトで「フォント指定の次に半角数字がくる場合は半スペース空ける」
というのを見かけたので　&10 "　としたのですが（そのサイトでもこのようになっていたので）、これではだめなのでしょうか？　引き続き調べてみます。

Private Sub Worksheet_Calculate()
    Me.PageSetup.LeftHeader = "&""游ゴシック""&10" & " " & Me.Range("CC1").Value & Chr(10)
End Sub
 
このようにしてみました。

試していませんが、全角空白とか、"_"(アンダースコア）なども検証に入れて見て下さい。

simple様
 
ありがとうございます。
半角空白より、全角空白やアンダースコアを入れたほうが、確実に回避できそうな気がしますね。
全角空白で様子を見てみたいと思います。
ありがとうございました。