Функция Worksheet_Change работает на одном компьютере, но не на другом

Question

Я пытаюсь использовать код VBA, написанный здесь - https://www.extendoffice.com/documents/excel/3633-auto-populate-date-in-excel-when-cell-is-updated.html#a1

, который я вставил ниже:

Код, кажется, отлично работает на одном компьютер, но с другой стороны, кажется, что ничего не происходит, когда я делаю какие-либо изменения в столбце B. Сначала я подумал, что там может быть какая-то опция отключена, но я не уверен, где искать или как сравнивать настройки между двумя компьютеры

были бы благодарны за любую помощь

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub