Fecha y Hora de celda Modificada

Buenos días,

Tengo el siguiente macro que me estaba funcionando muy bien pero de repente
dejo de funcionar, lo generaron en una version de excel anteriora a las 2003
que estoy usando en estemomento.

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Target.Parent.Range("A2:A10")) Is
Nothing Then Exit Sub

Application.EnableEvents = False
Target.Offset(, 1) = Now
Application.EnableEvents = True
End Sub


Pretendia poner en la celdas de la culumna b del rango a2:a10 la hora y la
fecha en que era modificada alguna celda de ese rango, es decir:

si metia algun dato en la celda A2 en B2 aparecia la fecha y hora en que
habia introducido el dato. pero derepente dejo de funcionar.

alguien podria ayudarme a ver por que paso esto o que me den algun otro
macro para hacer lo que hacia antes con este macro.

Gracias