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?
Bookmarks