Excel VBA HOW TO PRINT THE TEXT IN A CELL like Wrap Text

Question

When the code is executed, the text "AASD FDG HJK LSDH YTWIN" appears in a cell, however, I need the words to appear in a cell enclosed like:

AASD
FDG
HJK
LSDH
YTWIN

This is one cell. what changes needs to be done to get like that for this code:

Ws.Range("E" & R).Value = "AASD FDG HJK LSDH YTWIN " 

Answer 1

Use a LineFeed character to create a line break in an Excel cell. In VBA, a constant vbLf is defined for that. Additionally, the cell's WrapText attribute must be set.

So you can use:

With ws.Range("E" & R) 
    .WrapText = True
    .Value = "AASD" & vbLf & "FDG" & vbLf & "HJK" & vbLF & "LSDH" & vbLF & "YTWIN"
    ' Or use
    .Value = Replace("AASD FDG HJK LSDH YTWIN ", " ", vbLf) 
end With