Code was working perfectly, but now will not work after an error window popped up...

[ekf23]

Hi,

I have a code entered into THISWORKBOOK as a sheetchange. The code enables two-way cell linking, which I manipulated to basically perform three-way cell linking. It was working perfectly for a few days, but then an error popped up and the options were to "end" or "debug." Now I cannot get the code to work again. I am not sure what happened as it was working perfectly...
The following is the code I am using:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Sheet2.Range("D" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
    Sheet1.Range("A" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Sheet2.Range("D" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    Sheet2.Range("E" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    Sheet1.Range("B" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
    Sheet2.Range("A" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Sheet1.Range("D" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    Sheet2.Range("B" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    Sheet1.Range("E" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
    Sheet2.Range("F" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
    Sheet1.Range("F" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("H:H")) Is Nothing Then
    Sheet2.Range("C" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
    Sheet1.Range("H" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
    Sheet2.Range("G" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
    Sheet1.Range("I" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
    Sheet2.Range("H" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("H:H")) Is Nothing Then
    Sheet1.Range("J" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("K:K")) Is Nothing Then
    Sheet2.Range("T" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("T:T")) Is Nothing Then
    Sheet1.Range("K" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
    Sheet2.Range("T" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("U:U")) Is Nothing Then
    Sheet1.Range("U" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("N:N")) Is Nothing Then
    Sheet2.Range("N" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("N:N")) Is Nothing Then
    Sheet1.Range("N" & Target.Row).Value = Target.Value
End If
If Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Sheet1.Range("A" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Sheet3.Range("A" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Sheet1.Range("A" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    Sheet3.Range("B" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    Sheet1.Range("B" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
    Sheet3.Range("C" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
    Sheet1.Range("C" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
    Sheet3.Range("D" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
    Sheet1.Range("F" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
    Sheet3.Range("E" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    Sheet1.Range("G" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
    Sheet3.Range("P" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("P:P")) Is Nothing Then
    Sheet1.Range("I" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("K:K")) Is Nothing Then
    Sheet3.Range("Q" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("Q:Q")) Is Nothing Then
    Sheet1.Range("K" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("M:M")) Is Nothing Then
    Sheet3.Range("N" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("N:N")) Is Nothing Then
    Sheet1.Range("M" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet1" And Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
    Sheet3.Range("R" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("R:R")) Is Nothing Then
    Sheet1.Range("L" & Target.Row).Value = Target.Value
End If
If Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
    Sheet3.Range("A" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
    Sheet3.Range("A" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    Sheet2.Range("D" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    Sheet3.Range("B" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    Sheet2.Range("E" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
    Sheet3.Range("D" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
    Sheet2.Range("F" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
    Sheet3.Range("P" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("P:P")) Is Nothing Then
    Sheet2.Range("G" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
    Sheet3.Range("I" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
    Sheet2.Range("I" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
    Sheet3.Range("J" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
    Sheet2.Range("J" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("K:K")) Is Nothing Then
    Sheet3.Range("K" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("K:K")) Is Nothing Then
    Sheet2.Range("K" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
    Sheet3.Range("L" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
    Sheet2.Range("L" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("S:S")) Is Nothing Then
    Sheet3.Range("O" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("O:O")) Is Nothing Then
    Sheet2.Range("S" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("T:T")) Is Nothing Then
    Sheet3.Range("Q" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("Q:Q")) Is Nothing Then
    Sheet2.Range("T" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet2" And Not Application.Intersect(Target, Range("U:U")) Is Nothing Then
    Sheet3.Range("R" & Target.Row).Value = Target.Value
ElseIf Sh.CodeName = "Sheet3" And Not Application.Intersect(Target, Range("R:R")) Is Nothing Then
    Sheet2.Range("U" & Target.Row).Value = Target.Value
End If
Application.EnableEvents = True
End Sub

Any help would be much appreciated!

[Norie]

Have you tried enabling events?

You can do that by opening the Immediate Window (CTRL+G), entering this,

Application.EnableEvents = True

and pressing Enter.

[ekf23]

It works now! Thank you so much If this ever happens again, do I just keep entering that in the immediate window to fix it?