Wrap text for date values

[PATSYS]

Hi,

I have a date value 9/1/2019 in a cell that is formatted as MMM YYYY so it appears as Sep 2019. I would like the year to appear on a 2nd line in the same row.

So instead of

Sep 2019

It should be:

Sep
2019

How can this be done?

Seems wrap text doesn't work on dates.

Thanks

 

[PATSYS]

Hi PATSYS ,
What about for one cell

Sub test()
dt = Split(Format(Range("a1"), ("MM YYYY")), " ")
[b1] = MonthName(dt(0), True) & Chr(10) & dt(1)
End Sub

Thanks, works as well.