Worksheet changed stopped working

[theheed]

Hi

I have been using the following code for a while to track changes to a row and logging date and username, plus change dates to the 1st of the month when entered. However, it has stopped working in the sense it no longer does the changes when a value changes on the row. Please help

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changerow As Integer
    Dim changeusername As String
    changeusername = ReturnUserName()
    changerow = Target.Row
    Application.EnableEvents = False
    Range("AO" & changerow).Value = Now()
    Range("AP" & changerow).Value = changeusername
    Application.EnableEvents = True
    If Target.Column = 24 And IsDate(Target.Value) Then
        Application.EnableEvents = False
        Target.Value = DateSerial(Year(Target.Value), Month(Target.Value), 1)
        Application.EnableEvents = True
    End If
      If Target.Column = 21 And IsDate(Target.Value) Then
        Application.EnableEvents = False
        Target.Value = DateSerial(Year(Target.Value), Month(Target.Value), 1)
        Application.EnableEvents = True
    End If
End Sub

 

[CharlesChuckieCharles]

has the following been called somewhere else
Application.EnableEvents = False

and i believe changes caused by Formula recalc's don't trigger the change event

 

[theheed]

Charles, no formulas in the cells.

Would it work if i put a Application.EnableEvents = True in before the variables say?

 

[CharlesChuckieCharles]

is there any other code in the workbook that would contain
Application.EnableEvents = False

have you recently switched excel versions
have the users now got to enable macros?

 

[theheed]

There is a few in various bits of the code, I will remove these and try.

I force Macros on at the start through some sheet hiding etc, and still 2000.

 

[CharlesChuckieCharles]

If you have more than one worksheet this code will have to be in the sheet module of each sheet

 

[Jonmo1]

Check if Events are currently disabled...

In the VBA window, click View - Immediate Window
Enter
?Application.EnableEvents

If that returns false, then events are disabled.

Type this to enable them
Application.EnableEvents = True

 

[theheed]

It worked, hopefully it will keep doing so!

 

[CharlesChuckieCharles]

What did you do?

 

[theheed]

Your immediate window bit was indeed False so used the 2nd line.