My code has been firing up when I change a value in col 1

[Eric Penfold]

Why will this code not fire up when I change a cell in col 1 or col 10 it always used to?

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim wb     As Workbook
    Dim ws     As Worksheet
    Dim xRg    As Range, KeyCells As Range
    Dim Rng    As Variant
    Dim LRow   As Long, LRow2 As Long
    Dim WsConfig As Worksheet
    Dim lngStartRow As Long, NumRows As Long
    Dim Found  As Boolean
    Dim i      As Integer
    Dim x      As String

    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    
    Set wb = Workbooks("2023BackOrderReport.xlsm")
    Set ws = wb.Worksheets("Data")
    Set WsConfig = wb.Worksheets("Config")
    LRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    
    Call DeleteTbl
    
    If Target.Column = 1 Then
    
    Call DropDownListCode
    
    Call CopyData
    
    Call CreateTbl
    
    End If
    
    If Target.Column = 10 Then
    
    Call EmailDepots
    
    End If
    
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
    
End Sub

 

[Georgiboy]

Do you have any code that could have disabled events?

Try running the below sub and see if it works after:

Sub EnableEvnts()
    Application.EnableEvents = True
End Sub

 

[Eric Penfold]

Sorry still not working

 

[Georgiboy]

Does the code in 'DeleteTbl' contain the lines:

EnableEvents = False

or

On Error Resume Next

?

I am thinking that maybe 'DeleteTbl' is encountering an error and leaving EnableEvents set as false

 

[RoryA]

it always used to

When did it stop?

 

[Eric Penfold]

This morning

 

[RoryA]

Have you restarted Excel?

 

[Eric Penfold]

Yes

 

[RoryA]

Is the code being triggered at all? Have there been any office updates applied in between it working and it stopping?

 

[Eric Penfold]

Sorry my mistake it now works.