Adding Space at the End of Each line within the Cell

[madhuchelliah]

Hello all, i have multiple lines within a cell (A1). While using Wrap Text all the lines are combining into single entity, to avoid that i want to add space at the end of each line. How to add it using VBA. Thank you. Stay safe.

 

[Dossfm0q]

ActiveCell = Replace(ActiveCell, Chr(10), Chr(10) & " ")

 

[madhuchelliah]

ActiveCell = Replace(ActiveCell, Chr(10), Chr(10) & " ")

Hey, it is working as expected. Thanks for your time.

 

[Dossfm0q]

You are welcome