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
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