Previously Used Code Not Working

[kbates79]

Hello,

I've used this code before in a worksheet; it used to work fine, and now it's not working:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0,1) = Now
End If
End Sub

It used to put a date/time stamp in column B whenever I altered column A, but now -- nothing. I'm not sure if I screwed up my Excel settings, or if I'm truly not seeing my error...

Any help is appreciated!

 

[Trebor76]

Hi kbates79,

Welcome to the MrExcel forum!!

The syntax of the code is fine so it must be how it's being executed. As the macro is an event macro it has to be assigned to the tab in question, not put in a normal module. Is this the case? Another possibility may be that the macros are not enabled.

HTH

Robert

 

[AlphaFrog]

Try running this macro to re-enable the events and see if that fixes the problem.

Sub ReEnable()
Application.EnableEvents = True
End Sub

 

[kbates79]

Re-enabling the events seemed to work. I'm glad to know now how I can trouble-shoot.

Thanks all!