timestamp ved ændring af data

Hej.
Jeg har googlet mig frem til en løsning, men kan ikke få den til at fungere...

Jeg vil have et timestamp når data ændres i en celle/række.  (kan det godt være en celle med en formel, hvor værdien af formlen ændrer sig?)

På forhånd tak.

denne løsning funker ikke med mine evner:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  With Target
    If .Count > 1 Then Exit Sub
      If Not Intersect(Range("A2:A10"), .Cells) Is Nothing Then
          Application.EnableEvents = False
            If IsEmpty(.Value) Then
              .Offset(0, 1).ClearContents
        Else
          With .Offset(0, 1)
                .NumberFormat = "dd mmm yyyy hh:mm:ss"
                .Value = Now
              End With
            End If
          Application.EnableEvents = True
        End If
      End With
    End Sub