VBA-Code aus Excel 2013 in 2010 nicht kompatibel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count  1 Then Exit Sub
If Not Intersect(Range("J10:J1000"), Target) Is Nothing Then
ActiveSheet.Unprotect "heute"
Target.Offset(0, 1).Value = Date
ActiveSheet.Protect "heute"
Else
If Not Intersect(Target, Range("Z10:Z100")) Is Nothing Then
ActiveSheet.Unprotect "heute"
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
ActiveSheet.Protect "heute"
If Intersect(Target, Range("Z10:Z101")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "heute"
With Sheets("CustomerVisits")
Z = .Range("G1")
.Range("G1") = .Range("G1") + 1
.Range("A" & Z) = Target.Value
.Range("B" & Z) = Target.Offset(0, -12).Value
.Range("C" & Z) = Target.Offset(0, -21).Value
End With
ActiveSheet.Protect "heute"
End If
End If
End Sub