ＶＢＡ .NumberFormatLocal うまく表示されない

Question

NumberFormatLocalの結果がうまく表示されない原因を教えてほしい。

Sub day()
    Range("B2") = "2019/1/1"
    Range("B2").NumberFormatLocal = "yyyy-mm-dd"
End Sub

以下、実行結果の画像

フォントが赤いのは直前で赤にしたからです。
43466は実行したら勝手にそうなりました。

試したこと。
Range("B2") = "2019/1/1"を
Range("B2") =2019/1/1でやってみましたがだめでした。
43466が2019と表示されるだけでした。

Comments

[itagagaki]

コードをコピペして検証してみましたが、ちゃんと 2019-01-01 になりますね。
以上、報告のみ。

[fdajo]

新規のシートで試すと同じようにちゃんとなりました。
ＶＢＡの練習をしていて、コード（sub ~ end sub）を複数記述しているので、今回のコード以前で何か原因があったかもしれません。

有難うございます。

Answer 1

順番を入れ替えてみました。どうでしょうか。

Sub day2()
    Range("B2").NumberFormatLocal = "yyyy-mm-dd"
    Range("B2").Value = "2019/1/1"
End Sub