Code Not working

[wlbamc]

I have the following code which automatically copies from one tab to 4 other tabs.

rivate Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.CountLarge > 1 Then Exit Sub
With Application
  .EnableEvents = False
  .ScreenUpdating = False
End With
   If Intersect(Target, Range("A:E")) Is Nothing Then Exit Sub
   For Each ws In Sheets(Array("LTC and CHC Panel Processes", "Discharge and transfer arrangem", "Other measures"))
      ws.Cells(Rows.Count, Target.Column).End(xlUp)(2).Value = Target.Value
   Next ws
   Target.Offset(, 1).Select
With Application
  .EnableEvents = True
  .ScreenUpdating = True
End With
End Sub
Sub Chk()
Application.EnableEvents = True
End Sub

I have saved this onto our shared drive for other people to use, I am on Excel 2016 and they are on 97-2003. For some reason the code doesn't work for them but does for me, we have tried saving it as a macro enabled and in the 97-2003 version but no luck. Does anyone know why please

 

[footoo]

The CountLarge property was introduced in XL2007.
Try instead:

If Target.Count > 1 Then Exit Sub

 

[wlbamc]

Many thanks, giving it a go, working so far, will wait for the user error!!