title: Mirroring column in one excel sheet to other multiple excel sheets with automatic updating
body: <p>I have an excel workbook that contains multiple sheets within it. For the sake of this question, the sheets are named Sheet1, Sheet2, Sheet3, and so on. I would like to have Column A from sheet1 be replicated throughout the rest of the sheets and as new cells are added to column A in sheet1, they would automatically be entered into the other sheets within the workbook. I would prefer not to have a set "ending range; ie: A100000" for this. For example, if I enter First in cell A1 of Sheet1, the word "First" should now also appear in cell A1 of Sheet2. I have used the following code, and it does not seem to work. Any help would be greatly appreciated.</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
          Call UpdateFromSheet1
  End Sub
  
  Sub UpdateFromSheet1(ByVal Sh As Object, ByVal Target As Range)
      If Sh.CodeName = "Sheet1" Then
          If Not Intersect(Target(1, 1), Range("A1:A1000")) Is Nothing Then
              Sh.Range("A1:A1000").Copy Sheet2.Range("A1")
          End If
      End If
  End Sub
  </code></pre>