no changes but VBA code stopped working

So I opened my project and this section of the code stopped working for some reason. the data still shows up but the date no longer auto populates - anyone have suggestions?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range
    If Not Intersect(Range("B53:B130"), Target) Is Nothing Then
        Application.EnableEvents = False
    For Each cel In Intersect(Range("B53:B130"), Target)
            If cel.Value = 0 Then
               Target.Offset(0, 1).Value = ""
            Else
               Target.Offset(0, 1).Value = Date
            End If
        Next cel
        Application.EnableEvents = True
    End If

If Intersect(Range("H10"), Target) Is Nothing Then Exit Sub

If InStr(1, Range("H10"), "Term'd / Left") = 0 Then Exit Sub

MsgBox ("PLEASE EMAIL CPA, REVOKE AGENT BADGE ACCESS & ALL SYSTEM ACCESS. THIS TAB WILL NOW CLOSE.")

Application.EnableEvents = False
    Range("H10") = "Term'd / Left"
Application.EnableEvents = True

If [H10] = "Term'd / Left" Then
 ActiveWorkbook.ActiveSheet.Visible = False
 Else
 ActiveWorkbook.ActiveSheet.Visible = True
 End If
    
End Sub

Mike thank you good sir. worked perfectly