Problem with Worksheet Change Macros

[Overkill32]

Hello,

I have a macro that creates a timestamp when i change the value of a cell. Until recently it was working fine but now it's as if excel doesn't start the macro when I change the cell... any pointers?


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row > 22 Then
If Target.Column = 1 Or Target.Column = 2 Then
If Target.Column = 1 Then
Target.Offset(, 7) = Time
Else
Target.Offset(, 6) = Time
End If
End If
End If
Application.EnableEvents = True
End Sub

 

[Mister H]

Hi... You have likely have your Events Disabled. This can easily happen when you have a code that craps out on you in the middle of running. If you turn off events at the beginning and then the code doesn't complete the events remain off. Copy the code below and run it using the F8 key. It will tell you what the current status of things are and as well it turns on the necessary things to get your Excel working again... Good Luck

Sub Check_ALL_Then_Reactivate()
'Check Status of each
MsgBox "Application.ScreenUpdating is..." & vbCrLf & Application.ScreenUpdating, , "True or False?"
MsgBox "Application.EnableEvents is..." & vbCrLf & Application.EnableEvents, , "True or False?"
MsgBox "Application.DisplayAlerts is..." & vbCrLf & Application.DisplayAlerts, , "True or False?"
'Now MAKE SURE they are reset to TRUE
With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
            
End With
'Application.Calculation = xlManual 'To turn off automatic calculation
Application.Calculation = xlAutomatic 'To turn on automatic calculation
    
End Sub

Hopefully this fixes your issues. If you have any questions about implementing and running the code... Just ask

Take Care,
Mark

 

[Overkill32]

Yes my events where off. Last time my macro crashed after the line turning it off. It never went back to on. Thx for the help