Why is my macro not working?

[mcintoshmc]

I've used this macro for over a year, and for some reason it just stopped. Column O is still the correct column, and the date is supposed to reflect in column W.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range

Set rInt = Intersect(Target, Range("O:O"))
If Not rInt Is Nothing Then
For Each rCell In rInt
With rCell.Offset(0, 8)
.Value = Now
.NumberFormat = "mmm d, yyyy"
End With
Next
End If
End Sub

 

[Joe4]

How is it not working?
Is it not doing anything when you make a manual entry in column O?

If that is the case, try manually running this short macro and try again:

Sub ReenableEvents()
    Application.EnableEvents = True
End Sub

 

[JLGWhiz]

I added a couple of lines of code to prevent perpetual looping.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range
Application.EnableEvents = False
Set rInt = Intersect(Target, Range("O:O"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            With rCell.Offset(0, 8)
                .Value = Now
                .NumberFormat = "mmm d, yyyy"
            End With
        Next
    End If
Application.EnableEvents = True
End Sub

That plus what @Joe4 offered should fix it.

 

[mcintoshmc]

I figured it out. Excel was updated to a new version at work, and Macros were disabled. Thanks.

 

[Joe4]

I figured it out. Excel was updated to a new version at work, and Macros were disabled. Thanks.

Ah yes, those important details make all the difference!

 

[JLGWhiz]

Excel was updated to a new version at work

IT strikes again! You'd think they would retain the system settings when doing upgrades, but many of them don't do it and the uers have to then go in and reset everything.