I have this code to enter a timestamp in say a2 when a1 is changed

As i am importing data, the worksheet_change doesnt work, i need to us
worksheet calculate but am unable to code it,

any help would be aprieciated

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 Su

--
Message posted from http://www.ExcelForum.com