title: Automatically Copy Sheet 1 A1:A2 to Sheet 2 A1:A2 When Sheet1 A1:A2 Changes
body: <p>Objective: If any values in A1:A2 on sheet 1 change, then the values in A1:A2 on sheet 2 should automatically update with these values. The following sheet 1 event handler fails to work:</p>
  
  <pre><code>Private Sub Worksheet_Calculate()
  
  Application.EnableEvents = False
  
  Dim target As Range
  Set target = Range("A1:A2")
  
      If Not Intersect(target, Sheets(2).Range("A1:A2")) Is Nothing Then
          Range("A1:A2").Value = Sheets(2).Range("A1:A2").Value
      End If
  
  Application.EnableEvents = True
  
  End sub
  </code></pre>
  
  <p>As usual, VBA's mind-numbingly opaque syntax is my downfall. Any advice in implementing the above simple task would be appreciated, as would referral to a VBA reference guide that is actually useful in explaining the hidden minutia of VBA.</p>