title: Excel. Worksheet Change to Worksheet Calculate
body: <p>I have code that runs perfectly on "Worksheet_Change" event.</p>
  
  <p>The value in cell "A1" changes frequently from a live feed. </p>
  
  <p>I need help to adapt the code from this event to work with "Worksheet_Calculate" event.</p>
  
  <p>Every time Cell value A1 changes, automatically the Old value must be shown in A2.</p>
  
  <pre><code>A1    New Value
  A2    Old Value
  </code></pre>
  
  <p>Here is the code:</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
      Dim NewValue, OldValue
      If Target.Address &lt;&gt; "$A$1" Then Exit Sub
      Application.EnableEvents = False
      With Target
          NewValue = .Value
          Application.Undo
          OldValue = .Value
          .Value = NewValue
      End With
      Range("a2").Value = OldValue
          Application.EnableEvents = True
  End Sub
  </code></pre>