title: Append new string to cell in Excel
body: <p>I'm trying this, but it's not working:</p>
  
  <pre><code>Sub macro1()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  
  Dim LR As Long
  With ActiveSheet
      LR = .Cells(.Rows.Count, "C").End(xlUp).Row
  End With
  
  For r = 2 To LR
  
  p = Application.Match(Cells(r, 3), Sheets("Input").Range("C:C"), 0)
  
  If IsError(p) Then GoTo nextr:
  
  Cells(r, 4).Value = .Value &amp; ",newsletter" '***here***
  
  
  nextr:
  Next r
  
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>If I use the following on the line marked <strong><em>here</em></strong> :</p>
  
  <pre><code>Cells(r,4) = "Y"
  </code></pre>
  
  <p>It works, so I guess I've done my append wrong?</p>