title: Macro that replaces last word in a cell
body: <p>I've been trying to come up with a macro that runs through a column and replaces the last word in a cell.</p>
  <pre><code>Dim LR As Long, i As Long
      Application.ScreenUpdating = False
      LR = Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).row
          For i = 1 To LR
              With Range(&quot;A&quot; &amp; i)
                  If Right(.Value, 4) = &quot;word&quot; Then .Value = Right(.Value, Len(.Value) + 10) &amp; &quot; different word&quot;
              End With
          Next i
  </code></pre>
  <p>I have this code that tacks the replacement onto the end, but I don't understand it well enough to get it to replace the original.</p>
  <p>Any input appreciated.</p>