Formula stops working on certain cells????

[SPUSHECK]

I am using the formula below and the problem is that the date always works but once I get to row 35 the time stops being entered.
Any suggestions?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B32:B99")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, -1).Value = Now
Application.EnableEvents = True
End If
On Error GoTo 0

End Sub

 

[RalphA]

Sorry, you said formula, when you actually have VBA code, in which I pass!

 

[Peter_SSs]

SPUSHECK

I suggest that you have a look at the formatting of the problem cells. It may be that they are formatted as DATE rather than a CUSTOM Date/Time format.

 

[RalphA]

Peter, your suggestion look very reasonable and probable, to me. Good thinking. Perhaps, with more acumen on my part, I would have thought the same.