Trying to get 2 lines into one cell

[JONeill]

I'm trying to get a day abbreviation and a calendar day in one cell on two lines. Using something like...

cels(row, col).value ="M" & chr(13) & day

So, centered output would be:

M T
19 20

Anyone know a way to do this?

 

[JLGWhiz]

This would, of course have variantions, depending on what your overall objective is.

Sub t()
Cells(1, 1) = "M" & vbLf & Format(Date, "d")
End Sub

 

[JONeill]

Worked great! Thanks.

 

[Rick Rothstein]

Sub t()
Cells(1, 1) = "M" & vbLf & Format(Date, "d")
End Sub

The M is the first letter of the day name, correct? If so, let's let VB figure that out for you...

Cells(1, 1) = Left(Format(Date, "ddd"), 1) & vblf & Day(Date)

 

[JLGWhiz]

Worked great! Thanks.

You're welcome, and see Rick's code for the day of week initial
Regards, JLG