Time & Date Stamps

I've got a date stamp using VBA to each cell in column A. What I'm really wanting is it to show date and time.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Set Target Range
Set rng = Range("A:A")
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
' Action if Condition(s) are met
Target.Offset(, 1) = Date
End Sub