Adding Time To Date Stamp

[nutathis]

Hi,

Is there anyway to add a time stamp along with the below DATE stamp code and protect the cell from changes?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Target.Offset(0, 1) = Date
End If
End Sub

Thanks

[nutathis]

I figured it. I changed the Date coding to Now and formatted the cell. Now is there a way to protect the cell from being changed once the date is entered?