Try the below

Sub Macro()
Range("A13") = Range("A13") & vbLf & Date
End Sub

If you want to keep the height as such

Sub Macro()
Dim varHeight as Variant
varHeight = Range("A13").RowHeight
Range("A13") = Range("A13") & vbLf & Date
Range("A13").RowHeight = varHeight
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"MSW Intern" wrote:

Is there a way to list multiple dates within one cell? I have a very complex
spreadsheet and can't afford individual cells for the one item that requires
multiple dates be input into it.
When I tried just listing more than one date, the numbers went over the cell
boundaries into adjoining cells. I need it to instead either wrap to a second
line within the same cell (making the cell longer) or do something similar
that doesn't affect the surrounding cells but keeps all the information. Any
help appreciated!