I have four sheets where the information is identical but arranged differently. I have two columns of 135 cells each within each of those sheets that it would be useful to have link to each other, so that any entry or change in one of those cells will link to the corresponding cell in each of the three other sheets. I found this code for doing this between two sheets:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rFrom as Range

    If Target.Count = 1 Then
        With Target.WorkSheet
             Set rFrom = .Range("A1:A20")
             If Not Intersect(Target, rFrom) Is Nothing Then
                 Application.EnableEvents = False
                 'Include next line Just in Case something happens
                 '    You don't want to leave EnableEvents off
                 On Error Resume Next
                 rFrom.Copy Worksheets("Sheet2").Range("B10:B30")
                 If Err.Number <> 0 Then
                     Msgbox "Error Occurred"
                 End If
                 Application.EnableEvents = True
             End If
         End With
    End If
End Sub
And it looks like it will work, but I need to be able to make it work across four different sheets. Would someone please advise me on the changes I'd need to make/if this is even worth it/possible?