• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User


  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA Help : How to copy value from one cell to another as a new line with color


Hi All,
Request somebody to help on the subject
For example in the below code, how do I append the value in B1 to A1 as a new line instead of the space used in the code and with a red color
Cells(1, 1).Value = Cells(1, 1).Value & " " & Cells(1, 2).Value
Thanks in advance


Well-Known Member
Sub blah()
With Cells(1, 1)
  myStart = Len(.Value) + 2
  'If Len(Cells(1, 2).Value) > 0 Then
    .Value = .Value & vbLf & Cells(1, 2).Value
    .Characters(Start:=myStart).Font.Color = vbRed
  'End If
End With
End Sub
Last edited: