Have put the following code into sheets. Worked the first time, now getting Copy method error.
Sheet6:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 And Not Intersect(Range("D19:I22"), Target) Is Nothing Then
On Error GoTo Escape
Application.EnableEvents = False
Target.Copy Sheet7.Range(Target.Address).Offset(-14, 1) '<-- *** Sheet code name used ***
End If
Continue:
Application.EnableEvents = True
Exit Sub
Escape:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Continue
End Sub
Sheet 7:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 And Not Intersect(Range("E5:J8"), Target) Is Nothing Then
On Error GoTo Escape
Application.EnableEvents = False
Target.Copy Sheet6.Range(Target.Address).Offset(14, -1) '<-- *** Sheet code name used ***
End If
Continue:
Application.EnableEvents = True
Exit Sub
Escape:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Continue
End Sub
Sheet6:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 And Not Intersect(Range("D19:I22"), Target) Is Nothing Then
On Error GoTo Escape
Application.EnableEvents = False
Target.Copy Sheet7.Range(Target.Address).Offset(-14, 1) '<-- *** Sheet code name used ***
End If
Continue:
Application.EnableEvents = True
Exit Sub
Escape:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Continue
End Sub
Sheet 7:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 And Not Intersect(Range("E5:J8"), Target) Is Nothing Then
On Error GoTo Escape
Application.EnableEvents = False
Target.Copy Sheet6.Range(Target.Address).Offset(14, -1) '<-- *** Sheet code name used ***
End If
Continue:
Application.EnableEvents = True
Exit Sub
Escape:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Continue
End Sub